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Third Edition (April 1980) 

Use this publication only for the purpose stated. 

Changes are periodically made to the information herein; 
before using this publication in connection with the operation 
of IBM systems* refer to the latest IBM Series/1 Graphic 
B i b 1 i ogr aphv > GA34-0055, for the editions that are applicable 
and current . 

It is possible that this material may contain reference to» or 
information about, IBM products (machines and programs), 
programming, or services which are not announced in your coun- 
try. Such references or information must not be construed to 
mean that IBM intends to announce such IBM products, program- 
ming, or services in your country. 

Publications are not stocked at the address given below. 
Requests for copies of IBM publications should be made to your 
IBM representative or the IBM branch office serving your local- 
ity. 

This publication could contain technical inaccuracies or 
typographical errors. A form for reader's comments is provided 
at the back of this publication. If the form has been removed, 
address your comments to IBM Corporation, Systems Publica- 
tions, Department 27T* P.O. Box 1328, Boca Raton, Florida 
33432. IBM may use and distribute any of the information you 
supply in any way it believes appropriate without incurring any 
obligation whatever. You may, of course, continue to use the 
information you supply. 
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SUMMARY OF AMENDMENTS 



New Instructions 



In Chapter 3 the CONTROL instruction has been added to 
support the IBM Series/1 4969 Magnetic Tape Subsystem 



Instruction and Statement List 



"Appendix A" has been added to list all of the Event 
Driven Language statements and instructions with 
their available operands and default values. 



Modified Instructions 



The following instructions and statements have been 
modified to include support for the IBM Series/1 4969 
Magnetic Tape Subsystem: 



DSCB 

POINT 

PROGRAM 

READ 

WRITE 
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Summary of Amendments continued 



Bi bliography 



The Bibliography lists the books in the EDX library and 
a recommended reading sequence. Other publications 
related to EDX are also listed. 



Miscellaneous Changes 



This manual has been modified to include new function 
and to improve technical accuracy and clarity. New mate- 
rial and technical changes are indicated by vertical 
bars in the left margin. 
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HOW TO USE THIS BOOK 



The material in this section is a guide to the use of this book. 
It defines the purpose, audience, and content of the book as 
well as listing aids for using the book and background materi- 
a Is . 



PURPOSE 



The Language Reference contains all details for coding 
individual Event Driven Language (EDL) instructions, except 
those used exclusively for remote communications and advanced 
terminal applications. Examples in the book illustrate the use 
of many EDL instructions in different applications. 



AUDIENCE 



The Language Reference is intended for application programmers 
who write and maintain application programs using EDL. The pro- 
grammer is expected to know the Event Driven Language. EDL can 
be learned by using the IBM Series/1 Event Driven Executive 
Event Driven Executive Study Guide , SR30-0436, available 
through your local IBM Branch Office. 



HOW THIS BOOK IS ORGANIZED 



This manual is divided into six chapters and one appendix: 

• "Chapter 1. Introduction" describes the Event Driven 
Language. It introduces each instruction or statement and 
describes its format. It also presents information about 
registers and parameter naming operands. 

• "Chapter 2. Instructions and Statements - Overview" 
contains the instructions divided into categories accord- 
ing to their general use. These categories are arranged in 
alphabetical order. 

• "Chapter 3. Instructions and Statements - Descriptions" 
contains a detailed description of each instruction or 
statement in the Event Driven Language, showing syntax 
rules, operands, and defaults. Each page contains a name 
tab at the top of the page for easy reference. 
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"Chapter 4. Indexed Access Method" explains how this func- 
tion is invoked and gives a detailed description of each 
i nstruct i on used . 

"Chapter 5. Multiple Terminal Manager" explains how this 
function is invoked and gives a detailed description of 
each instruction used. 

"Chapter 6. Programming Examples" contains coded program 
examples that use Event Driven Language instructions. 
Some examples do not represent complete programs because 
they do not include such instructions as PROGRAM, ENDPROG, 
and END statements. 

"Appendix A. Instruction and Statement List" lists the 
E D L , Communications, Indexed Access Method, and Multiple 
Terminal Manager instructions and statements. The lists 
also include the operands, their value ranges, and default 
values. Once you become familiar with the instructions you 
can code most instructions directly from these lists. 



EXAMPLES AND OTHER AIDS 



Throughout this book, coding examples and illustrations are 
used to clarify coding techniques and requirements. Coding 
examples are fully executable portions of complete programs 
that can be entered as shown. Coding illustrations are non- 
executable portions of incomplete programs that show the cor- 
rect format of all required parameters on a statement. Missing 
code, or code provided by you, is indicated by a series of three 
vertical or horizontal dots. 

Several other aids are provided to assist you in using this 
book : 

• A Summary of Amendments lists the significant changes made 
to this publication since the last edition 

• A Bi bl i ography : 

- Lists the books in the Event Driven Executive library 
along with a brief description of each book and a 
recommended reading sequence 

Lists related publications and materials 

• A Glossary defines terms 
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A Common Index which includes entries from each book in the 
Event Driven Executive library 
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RELATED PUBLICATIONS 



Related publications are listed in the bibliography 



SUBMITTING AN APAR 



If you have a problem with the Series/1 Event Driven Executive 
services* you are encouraged to fill out an authorized program 
analysis report (APAR) form as described in the IBM Series/1 
Authorized Program Analysis Report (APAR) User's Guide, 
GC34-0099. 
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CHAPTER 1. INTRODUCTION 



The Language Reference is written for programmers who write and 
maintain application programs in the Event Driven Language 
(EDL). You are expected to be familiar with the overview infor- 
mation in the System Gu i de . 

The Event Driven Language is a programming language designed 
for coding application programs. The language is designed at a 
level that allows flexibility for the application programmer 
without sacrificing productivity and is efficient in exe- 
cution. The language can be used effectively for virtually any 
type of application. 

The Event Driven Language contains many advanced features 
which provide great flexibility in application programming. 
For example* it allows exiting to and returning from other pro- 
grams or routines where this level of complexity is required. 
It provides automatic translation for reading and writing 
alphabetic* numeric* or alphameric data to and from graphic 
screens. The language provides different levels of control for 
I/O operations. You can use the Event Driven Language to 
program I/O and allow the program to be device independent in 
most cases or you can control I/O devices at the machine 
instruction level. 

An application program consists of instructions combined to 
form a task. A program can consist of one or more tasks. Each 
task has an assigned priority which is used by the supervisor 
to allocate system resources for task execution. 

Application programs or tasks are made up of Event Driven Lan- 
guage instructions ttra-t^ have been processed by a compiler or 
assembler and prepared for execution by the $UPDATE/LINK sys- 
tem utilities. At execution time, the Event Driven Executive 
(EDX) Supervisor/Emulator analyzes the compiled or assembled 
format of an instruction and links to the appropriate supervi- 
sor routine to perform the operation. Following the completion 
of each instruction* the supervisor processes the next sequen- 
tial instruction in the highest priority task that is in a 
ready state . 



Programs written using the statements 
processed by any one of the following: 



in this manual can be 



Event Driven 
5719-XX3) 



Language compiler $EDXASM C5719-XX2 or 
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Macro Assembler* $S1ASM (5719-ASA)* in conjunction with 
the macro library of program number 5719-LM5 or 5719-LM6 



Chapter 1. Introduction 



• S/370 Program Preparation Facility (5798-NNQ) which will 
be referred to as the host assembler in conjunction with 
the macro library of 5740-LM2 or 5740-LM3 

Note : Throughout this manual, the S/370 facility is referred 
to as the host assembler. 



LAYOUT AND STRUCTURE OF EDL PROGRAMS 

There are three basic components in an Event Dirven Executive 
app 1 i cat i on : 

• The Series/1 machine configuration definition 

• The application I/O definitions 

• The instructions and data areas comprising the application 
program 

This three-part division minimizes the dependence of the 
application program on a particular system hardware configura- 
tion. In addition, the sensor based I/O definitions are 
checked against the machine configuration to reduce the exe- 
cution time errors resulting from incorrect I/O assignments. 

The "System Configuration" section of the System Guide ( J 

describes the statements which define the hardware features on ^^ 

the Series/1. There are many optional components in the Event 
Driven Executive supervisor; their selection depends upon the 
configuration of the Series/1 for which the supervisor is com- 
piled or assembled. A set of configuration statements begin- 
ning with SYSTEM are used to compile the configuration data 
which is then stored with the supervisor during installation. 

The I/O devices and data sets used by an application are 
defined in the program itself. The PROGRAM statement must be 
the first statement in every EDL program. Operands on the PRO- 
GRAM statement and several I/O definition statements are pro- 
vided to specify the symbolic device names, data set names, 
options, techniques and defaults to be used by the program. 
These optional statements are normally grouped together imme- 
diately following the PROGRAM statement Every program is auto- 
matically provided with a default definition of one terminal, 
the terminal from which the program was invoked. Up to 9 data 
sets can be made available for use simply by identifying them 
with the DS operand of PROGRAM. Many applications require no 
additional I/O descriptions. 



The balance of an application program consists of its logic, 
data manipulations^ I/O requests, and data. Because the Event 
Driv'en Language is both simple and powerful, it often requires 
very few instructions to describe a complete application pro- 
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gram . 

A user application program has the following basic structure 

PROGRAM 

other I/O definitions 

application program instructions 
application program data 



ENDPROG 
END 

A complete source program starts with a PROGRAM statement and 
ends with the ENDPROG and END statements. 



GENERAL INSTRUCTION FORMAT 



Beginning with "Chapter 3. Instruction and Statement 
Descriptions" on page 51* each instruction is described in 
detail with brief remarks about the function* the syntax to be 
used to invoke a particular operation* the required parame- 
ters* and the defaults used if parameters are not specified. 
Each operand (or parameter) is listed and described. 

Event Driven Language instructions have the following struc- 
ture : 

label operation operands 

The operands field in many cases has multiple entries* as indi- 
cated by the following example: 

label op opndl * opnd2 * . . > opndn » Pl = » P2= * . . . * Pn = 

label The label field* containing a symbolic label with 
a maximum of 8 characters. In most cases the label 
is optional. If used it must start in column 1. 

operation The operation field (or op) containing the 
instruction or statement. 

operands The operands field* containing the operands or 
parameters for the instruction. 
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PI- tPZ- tPn- The parameter-naming operands used to allow 
modification of the instruction parameters at exe- 
cution time. 



SYNTAX RULES 



Syntactical coding rules are the same as those for the IBM 
Series/1 Macro Assembler. Some specific rules are as follows*. 

• An alphabetic string is 1 or more alphabetic characters (A 
- Z) or $ , # , and 3 , the special characters. 

• An alphameric string is 1 or more alphabetic characters or 
numeric characters CO - 9). 

• All upper case letters shown in the syntax descriptions 
starting in "Chapter 3. Instruction and Statement 
Descriptions" on page 51 must be coded as shown. This also 
applies to the comma immediately preceding the parameter 
and the equal sign ( = ) following. For example: 

,PREC= 

• Ellipses (...) indicate that a parameter may be repeated a 
variable (n) number of times. 

• The vertical bar (|) between two operands indicates mutu- 
ally exclusive operands; one or the other can be used but 
not both . 

• All labels* instruction mnemonics* and parameter names 
must be alphameric strings of 1 to 8 characters in length, 
the first being alphabetic. 

• Statement labels must begin in column 1. To continue a 
statement on another line, code a symbol in column 72, for 
example an asterisk (*), and begin the next line in column 
16. Examples shown in this manual may not conform to the 
column spacing conventions due to limitations in the 
length of printed lines. 

• Several instructions allow the use of immediate data or 
constants. These are called self-defining terms and 
improve the flexibility and ease of programming. 

• Variable names, which are defined elsewhere by means of the 
EQU statement, must be coded with a leading plus sign (+) 
for proper compiler operation. 

• The following labels are reserved for system use: 
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All labels beginning with a $ 

RO, Rl, R2, R3, R4, R5, R6, R7, FRO, FR1, FR2, FR3 

#1, #2 

RETURN (except when used in the instruction to end a 
user exit routine) 



SETBU5Y 



SUPEXIT 



SVC 



O 



• The operands, opndl , opnd2 , . . . opndn , are labels, names, or 
values defined for each instruction. Operands may also 
take the form NAME=name. This is called a "keyword" oper- 
and. Within any one instruction, the total positional and 
keyword operands must not exceed 50. 

The parameter naming operands, Pl= , P2= , . . . Pn- , or P=(...) 
are used to allow modification of instruction parameters 
at execution time. This is discussed further on the follow- 
i ng pages . 

Instruction formats are illustrated in the following example 
of a simple program with a primary task ADDTEN. The first 
statement, PROGRAM, starts the program and defines the entry 
point as DOTEN. The DATA statement defines the variable COUNT 
to be 0. The first instruction has the label DOTEN, which 
starts a DO loop with a count of 10. The next instruction adds 
1 to a variable, COUNT, which was initialized to by the DATA 
statement. The ENDDO specifies the end of a DO loop. The ADD 
instruction is executed 10 times, then PRINTEXT and PRINTNUM 
instructions print the result on a terminal. The PROGSTOP 
statement terminates the program execution. The ENDPROG and 
END statements must be the last two statements of an Event 
Driven Executive application source program. 



ADDTEN 



PROGRAM 



DOTEN 



COUNT 
DOTEN 



DATA 

DO 

ADD 
ENDDO 
ENQT 

PRINTEXT 
PRINTNUM 
DEQT 
PROGSTOP 



F»0» 

10, TIMES 
COUNT, 1 



'RESULT = ' 
COUNT 



INITIALIZE COUNT TO 

LOOP 10 TIMES 
INCREMENT COUNT BY 1 



ENDPROG 
END 
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The message will bet RESULT=10. This will be displayed on the 
terminal invoking this program. 

Note : The program examples, starting in "Chapter 6. 
Programming Examples" on page 383 can be of great assistance in 
understanding the usage of many of the instructions introduced 
here and described in detail beginning in "Chapter 3. 
Instruction and Statement Descriptions" on page 51. 



ADDRESS INDEXING FEATURE 

Two software registers are available to you for each task and 
may be referenced in many instructions to provide indexed 
addressing. The registers themselves are referenced by the 
names #1 and #2. Except where specifically prohibited, the reg- 
isters may be used in the same manner as any other variable in 
the program. For example, the integer arithmetic, logical, 
data movement, and program sequencing instructions may be used 
to set, modify, and test these registers. Other instructions 
are only permitted to use these index registers in the parame- 
ter format ( par ame ter , #r ) . For example, the instruction 

MOVE #1,0 

will set register * 1 to the value 0. The instruction ^r ^ 

MOVE #2, A 

will set register #2 to the contents of the variable A. An exam- 
ple of the use of the register as the from parameter is? 

ADD A,#l 

Here, the contents of register #1 will be added to the variable 
A and the result will be placed in A. It may be necessary to set 
a register to the address of a variable or vector. This is 
accomplished with the MOVEA instruction. For example, 

MOVEA #2,BUFFER1 

sets register #2 to the address of the variable BUFFER1. 

The syntax of an instruction parameter in which an index regis- 
ter is specified is in the form: 

(parameter , #r ) 

where parameter is either an address or a constant and r is 
either a 1 or a 2. The effective address will result from the 
sum of the address (or constant) specified by parameter and the 
current contents (constant or address) of the referenced index 
register. Only one of the variables, either the parameter or 
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the index register, can be an address; the other must be a dis- 
placement constant. 

For example» if #1 = 2 then the indexed instruction 

MOVE A,CB,#1) 
would be equivalent to the nonindexed instruction 

MOVE A,B + 2 
as would 

MOVE A,C2,#1) 

if register #1 contained the address of B. The following exam- 
ple illustrates the use of the indexing feature in a DO loop to 
find a value of -350 in a vector containing 1000 elements: 

MOVE #1,0 

DO 1000, TIMES 

IF ( (BUF,#1),EQ,- 350), GOTO, FOUND 

ADD #1,2 
ENDDO 

did not find a match 

FOUND MOVE DISP,#1 



o 



The index register, #1, is set to 0, a DO loop is started to 
execute 1,000 times. The buffer BUF has an implied length of 
1,000 words (2,000 bytes). A test is made on the first value of 
the buffer, and if a match occurs, a branch to the label FOUND 
is made. If not, the register is incremented by 2 (2 bytes = 1 
word) and the second value tested, and so on. When the value 
-350 is found in the buffer, the displacement from the start of 
the buffer, which is now contained in #1, is saved at the 
locat i on DISP. 



Each task has its own #1 and #2 index registers and the supervi- 
sor always interprets instructions using the currently execut- 
ing task's registers. T ' : -- 1 : *• : - 1 "- 1 ' 



and 



ing t«iaiv"s reyi seers*. Thus, individual programs emu 

individual task within the same program will have different 
values in their respective index registers. If a subroutine is 
called by several different tasks, it uses the calling task's 
#1 and #2, Overlays, however, are independent programs with 
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USE OF THE PARAMETER NAMING OPERANDS (PX=) 



In some programs it is necessary to complete the parameters 
used in certain instructions during execution. The Px operands 
permit this to be done easily. The Px operands refer to other 
operands within the same instruction in the following manner: 
PI refers to o p n d 1 , P2 refers to o p n d 2 , and so on, through the 
instruction according to the syntax for each instruction. For 
example, the number of times to execute a loop may not be known 
at compile time. You may assign a name to a parameter by adding 
the keyword Px=NAME to the instruction definition, where x is 
the operand number (1,2,..). The operand number specified in 
the Px keyword is given the name specified by the Px operand. 
This name can then be used as an operand in other instructions 
that modify the parameter at execution time. The following 
example shows a typical use of a Px operand. The P1 = M operand on 
the ADD instruction causes the label M to be placed on the first 
operand in the ADD parameter list. The parameter list is shown 
as DC instructions; these are automatically generated by the 
compiler. The MOVEA instruction (prior to the ADD) uses the 
label M to modify the variable to be used by the ADD 
i nstr uct i on . 



MOVEA M,NAME address of name 

ADD A,B,P1=M ^y 

+ DC A($ADD) ADD operation 

+M DC A(A) parameter 1 

+ DC A(B) parameter 2 



Execution of the MOVEA instruction changes the contents of the 
first operand of the ADD instruction from: 

+M DC A(A) 

to: 

+M DC A(NAME) 

and execution of the ADD instruction would result in the addi- 
tion of the contents of NAME and B. 



TASK CODE WORDS 



Each task in the Event Driven Executive environment has a task 
control block (TCB) associated with it. The first two words of 
the TCB are called task code words and can be accessed using the 
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taskname. The taskname is described more fully in "Chapter 3. 
Instruction and Statement Descriptions" on page 51 under the 
statements PROGRAM and TASK. 



o 



The first task code word (word 0) is used by the EDX supervisor 
to store the return code of various instructions. This word can 
be tested to determine the value of the return code of those 
instructions that return a code following their execution. 
This test must be performed immediately after the instruction 
execution because the task code word may be overlaid by the 
return code of the next instruction. 

The second task code word (word 1) may contain additional 
information unique to the function being used or the condition 
encountered . 



SYMBOLIC SENSOR BASED I/O ASSIGNMENTS 






The sensor-based I/O instruction (SBIO) refers to the I/O 
devices using a 3- or ^-character n a me . The first 2 characters 
identify the type of device: AI, DI» PI* AO* and DO for analog 
input* digital input* process interrupt* analog output* and 
digital output* respectively. The next 1 or 2 characters are 
the user identification for the device* a number between 1 and 
99. For example, the user may have three analog input termi- 
nals assigned to him. He identifies them as All* AI2* and AI3. 
The assignment of the actual physical addresses is done prior 
to compiling the application program using the sensor based I/O 
definition statement (IODEF). Therefore, all SBIO 
instructions become independent of the physical location of 
the sensor I/O points. 

The assignment of sensor I/O symbolic addresses is described 
under "IODEF" on page 185. Figure 1 on page 10 depicts the 
relationship between symbolic I/O, IODEF, and the physical I/O 
unit. 
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Sensor-based 
I/O execution 
instruction 
SBIO 



Sensor-based 
I/O definition 
instruction 
IODEF 



Physical 
sensor-based 
I/O address 
SENSORIO 



CCx 

Specifying 
the action 




CCx 

Address 

Specifying 
the physical 
location 




Describes 

physical 

device 







CC can be A1 , AO, Specifies 
Dl, DO x can be logical 

from 1 to 99 device 



Figure 1. Symbolic I/O Assignment 



SYMBOLIC TERMINAL I/O ASSIGNMENTS 

Symbolic addressing is also used for terminal devices. In the 
application the terminal is identified with a name which at 
execution time is related to the TERMINAL system configuration 
statement with a label of the same name. A default terminal can 
be accessed by omitting the terminal name from the terminal I/O 
statements in the application. This causes the terminal which 
invoked the application to be used for the I/O and makes the 
application completely independent of terminal addresses. 



| SYMBOLIC DISK/TAPE I/O ASSIGNMENTS 



Symbolic addressing for disk* diskette* or tape devices is 
achieved by having all I/O statements in the application refer 
to the symbolic data set control block DSCB name. At execution 
time* the data set and volume defined by the DSCB are found* and 
I/O is directed to the proper physical device addresses. If 
desired* the data set and volume names can be supplied by you at 
the terminal when the program is loaded for execution. 



vV 
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CONTROL BLOCK AND PARAMETER EQUATE TABLES 

Application programmers sometimes wish to obtain data directly 
from system control blocks when coding specialized functions 
such as terminal commands (ATTNLIST exits)* error exits (TASK 
ERRXIT or TERMERR) or a binary synchronous communication 
application. Many parameter lists and control blocks have 
equate tables which provide symbolic names for various values 
and the offset of each field relative to the beginning of the 
control block. Symbolic field names can be used in conjunction 
with index registers (see the "Address Indexing Feature" topic 
in this manual) to address the data in the control blocks. The 
symbolic values are often used as parameters. 

These equate tables are: 

BSCEQU DSCBEQU PROGEQU 

CCBEQU ERRORDEF TCBEQU 

CMDEQU FCBEQU TDBEQU 

DDBEQU IAMEQU 

Each equate table consists of a series of EQU statements which 
can be included in your program using the COPY statement. 
Although EQUs can be placed anywhere in a program* they are 
usually grouped together at either the beginning or the end. 
Some of the commonly used copy-code tables are briefly 
explained in the following sections. The control blocks them- 
selves are described in Internal Pes i on . 

When compiling programs with the host or Series/1 Macro Assem- 
blers* many equate tables are automatically included when a 
PROGRAM instruction is assembled. Tables included this way are 
PROGEQU, TCBEQU, DDBEQU, CMDEQU, and DSCBEQU. 



BSCEQU 



The BSCEQU equate table provides a map of the control block 
built by the BSCLINE system configuration statement. 

BSCEQU is also the name of a macro in the macro libraries used 
with the host or Series/1 macro assembler. Do not attempt to 
COPY BSCEQU when using either macro assembler. 



CCBEQU 



The CCBEQU equate table provides a map of the control block 
(CCB) built by the TERMINAL system configuration statement. 
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CMDEQU 



The CMDEQU equate table provides 
lator command table. 



a map of the supervisor's emu- 



DDBEQU 



The DDBEQU equate table provides a map of the device data block 
(DDB) built by the DISK system configuration statement. 



DSCBEQU 



The DSCBEQU equate table provides a map of the data set control 
block (DSCB) built by either the PROGRAM or DSCB statements. 



ERRORDEF 



The ERRORDEF equate table provides symbolic values for use in 
checking the return codes from the LOAD, READ, WRITE, and SBIO 
instructions. 



FCBEQU 



The FCBEQU equate table provides a 
Method file control block (FCB) for 
t i on . 



map of an Indexed Access 
use with the EXTRACT func- 



IAMEQU 



The IAMEQU equate table provides a set of symbolic parameter 
values for use in constructing parameter lists for CALLs to 
Indexed Access Method functions. 



^t««>r 
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PROGEQU 



The PROGEQU equate table provides maps of the program header 
(built by the PROGRAM statement) and the supervisor's communi- 
cation vector table (CVT). 



TCBEQU 



The TCBEQU equate table provides a map of the task control 
block (TCB) built by either the TASK or PROGRAM statements. 



TDBEQU 



The TDBEQU equate table provides a map of the tape data block 
(TDB) built by the TAPE system configuration statement. 



o 

^^^r 
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CHAPTER 2. INSTRUCTIONS AND STATEMENTS - OVERVIEW 






o 



This chapter presents the coding instructions and statements 
grouped by functions and their usage and listed in alphabetical 
order according to function. For example* the WRITE 
instruction falls into the application type listed under 
"Disk /Diskette I/O Instructions" on page 2 2 and also repeated 
under "Tape I/O Instructions" on page 40. There are 
programming considerations with each group of instructions and 
you should be familiar with these considerations prior to cod- 
ing the individual instructions. 

Some instructions/instruction groups require the support of 
optional features in your hardware configuration. Before these 
features are accessible by your programs* various supervisor 
modules must be included in SLNKCNTL during your system gener- 
ation. Refer to the System Guide for supervisor modules 
required for optional features support. 

For detailed descriptions of individual instructions see 
"Chapter 3. Instruction and Statement Descriptions" on page 51 
of this manual . 
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COMMUNICATIONS (REFERENCE ONLY) 



Binary Synchronous Communication Instructions 



BSCCLOSE 

BSCIOCB 

BSCOPEN 

BSCREAD 

BSCWRITE 



Binary synchronous communication instructions allow you to 
read and write data to a host system in binary synchronous 
mode. These instructions are described in detail in the 
Communications and Terminal Applications Guide . 



Host Communications Facility Instructions (TP) 

TP CLOSE TP RELEASE ( \ 

TP FETCH TP SET W 

TP OPENIN TP SUBMIT 

TP OPENOUT TP TIMEDATE 

TP READ TP MRITE 

The TP instruction provides services used to communicate with 
the Host Communications Facility installed user program (IUP) 
on a S/370 processor. Detailed descriptions are described for 
these instructions in the Communications and Terminal 
Applications Guide . 
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DATA DEFINITION STATEMENTS 
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BUFFER 


EQU 


DATA 


STATUS 


DC 


TEXT 



Use the data definition statements to define storage areas and 
the data initially placed in these areas. The DATA and DC 
statements perform the same function and have the same oper- 
ands. The Series/1 and host macro assemblers provide some 
additional operands for DC, but all operands shown in the 
DATA/DC description are accepted by both macro assemblers and 
$EDXASM unless otherwise noted. 



o 
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DATA FORMATTING INSTRUCTIONS 



CONVTD 

CONVTB 

FORMAT 

GETEDIT 

PUTEDIT 



The data formatting instructions allows you to prepare format- 
ted data for display on the terminals or printers attached to 
the Series/1. In addition* you can format data in storage and 
then allow the program to determine the destination. 

The data formatting instructions FORMAT, GETEDIT, and PUTEDIT 
require that your object program be processed by the link edit 
program, SLINK, to include the formatting routines which are 
supplied as object modules. The EXTRN statements necessary to 
reference these modules are generated as part of the compila- 
tion of the instruction. The modules can be automatically 
included in your program when required by using the $LINK 
autocall facility and the $ A U T autocall list provided in 
ASMLIB. For information on the use of the AUTOCALL option of 
$LINK, refer to Utilities, Operator Commands, Program 
Preparation, Messages and Codes . 

You may also build your own autocall list or include the format 
modules yourself. The modules names are! 



SGPLIST $PUAC 

SGEER SPUFC 

$GESC $PUIC 

$GEAC SPUXC 

$GEFC $PUHC 

SGEIC $PUSC 

$GEXC $PUEC 
$GEPM 



1 1 
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DATA MANIPULATION INSTRUCTIONS 



ADD 


FDIVD 


MOVEA 


ADDV 


FMULT 


MULTIPLY 


AND 


FPCONV 


SHIFTL 


DIVIDE 


FSUB 


SHIFTR 


EOR 


IOR 


SQRT 


FADD 


MOVE 


SUBTRACT 



| Vector Data Manipulation 



O 



A vector is defined in this manual as a series of contiguous 

data elements; bytes , words* or double words. Operand 1 deter 

m * 

de 

element of the vector. 



ata elements; bytes , words* or double words. Operand 1 deter- 
iines the beginning location of a vector and the count value 
etermines the vector length. Operand 2 is applied to each 



The ADDV and MOVE instructions are exceptions to this because 
they establish 2 vectors? operand 1 and operand 2 along with 
the count value. In these cases the first element of operand 2 
is applied to the first element of operand 1 » then the second 
element of operand 2 is applied to the second element of oper- 
and 1, and so on, until the count is exhausted. 

If the MOVE instruction operand 2 is immediate data, an explic- 
it constant, then only operand 1 is a vector. 



Integer And Logical Instructions 



Integer arithmetic, logical, and data movement operations are 
performed with instructions which have a common general form. 



Data Representation 



o 



Arithmetic operands are interpreted as s i gned-b i nary integers 
with negative values represented in twos complement form. 
Single -precision operands consist of 16 bits including sign; 
double-precision operands consist of 32 bits including sign. 
Logical operands are interpreted as bit strings of the appro- 
priate length: byte, word, or double word. Single- and 
double-precision operands of both types must be located on even 
address boundaries. 



C h a p-t e r 2 . I n s t r uc t i on s and 5 1 a temen t s 



Overv i ew 



1? 



I Over f low 



Overflow conditions encountered during the integer 
instructions ADD, ADDV, SUBTRACT, and MULTIPLY are not 
reported by EDX . 



o 



Mixed-precision Operations 



Allowable precision combinations for integer arithmetic oper 
ations are listed in the following table: 



opndl 


opnd2 


Result 


Abbrevi ati on 


Remarks 


S 


S 


S 


S 


default 


S 


S 


D 


SSD 


- 


D 


S 


D 


D 


- 


D 


D 


D 


DD 


- 


D 


S 


S 


DSS 


DIVIDE only 


Legend: $ 

I 


> = single 
) « double 


» precision 
» prec i s i on 







Operations Using Index Registers 



Index registers may generally be treated as ordinary single- 
precision integer arithmetic or logical variables. However, 
results of a vector operation directed at the registers (#1 and 
#2) may not extend beyond #2. 



Floating-Point Arithmetic Instructions 



Floating-point arithmetic instructions share a common format. 
Attempts to perform floating-point operations on a Series/1 
not equipped with the floating-point hardware result in a pro- 
gram check error. Floating-point support must also be included 
in the supervisor when it is generated. FLOAT = YES must be 
specified on both the PROGRAM and TASK statements whenever 
floating-point instructions are used in any task within a pro- 
gram . 



o 



o 
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Data Representation 



Arithmetic operands are interpreted as signed floating-point 
numbers in either single- or extended-precision. Single- 
precision, for floating-point instructions, is 3 2 bits; 



precision, ror Tioating-point instructions, is o c d i t s , 
double-precision is 64 bits. Further, the second data operand 
may be coded as an integer value between -32768 and +32767. 

t u ; - :~~-.~ti-Li.~. ,1 - *. -. . . ; i i u ~ »««.-*.. ~ ~ i- * ~i *■ -. -, ,.;»,-. 1 - «_,«,■.;.-;_». 



single precision 



This immediate data will be converted to a _...___ ..__._._.. 
floating point number prior to the arithmetic operation to be 
performed . 






Operations Using Index Registers 



The index registers (#1 and #2) cannot be used as operands in 
floating-point operations because the index registers are only 
16 bits in size. These registers may be used to specify the 
address of a floating-point operand. 



Return Codes 



o 



Floating-point operations produce return codes which are 
placed in the task code word. This word is referred to by 
taskname (see PROGRAM/TASK statements). These codes must be 
tested immediately after the floating-point instruction is 
executed or the code may be destroyed by subsequent 
instructions. The return codes are listed following the 
description of each individual floating-point instruction. 
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DISK/DISKETTE I/O INSTRUCTIONS 



D5CB 

NOTE 

POINT 

READ 

WRITE 

You are provided with both sequential and random access to disk 
or diskette data sets. When a program is first loaded for exe- 
cution! all of your data sets have been opened for access 
(reading or writing) beginning with the first record. Sequen- 
tial and random access operations may be intermixed. For 
instance, if five READ instructions* consisting of one record 
each have been initially issued to a data set, then the next 
sequential operation will normally take place with record num- 
ber 6. A random access READ could be issued for some other 
record, say record 23, and the next sequential operation would 
still take place with record 6. 

To open a data set during the execution of your program, you 
will need an OPEN subroutine. (For details on the OPEN subrou- 
tine, see "DSOPEN SUBROUTINE" in the System Guide ) . 



Definitions For Disk Data Sets S~\ 

J 



Record: The basic unit of direct access storage available to an 
application program is a record on disk or diskette which con- 
tains 256 bytes of data. Records are contained in data sets, or 
may be free space in a library. Data set record numbering 
beg ins with 1 . 

Data Set: A data set is a group of reserved contiguous records 
which have have been assigned collectively a data set name con- 
sisting of 1 to 8 bytes. No special restrictions exist within 
the system for valid names, but the use of standard system 
utility programs for data set access and allocation dictates 
that an alphameric character string be used as a name. Data 
sets are contained in libraries. 

A data set can contain either data or an executable program. 
The term member (of the library) is sometimes used when refer- 
ring to either type of data set. These data sets can be further 
subdivided with the use of the $PDS utility which can partition 
an Event Driven Executive data set. $PDS uses the term members 
to describe a group of contiguous records within the parti- 
tioned data set which have been assigned a name. 

Volume/Library: A library is a set of contiguous records which 
contains (1) a directory and either or both of the following: 
(2) a set of allocated data sets, (3) space available for the 
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allocation of new data sets. A directory is a series of contig- 
uous records which describe the library contents in terms of 
allocated data sets and free space. These records are at the 
beginning of the library. A library is contained in a volume. 






A volume is a physical direct access storage device* or a sub- 
set thereof. Each volume is assigned a volume name of 1 to 6 
alphameric characters. A volume begins on a cylinder boundary 
and contains an integral number of cylinders. The maximum vol- 
ume size is 32*767 records. Only one volume can be placed on a 
diskette or in the fixed-head area of a disk* but disks may have 
as many volumes as disk storage will permit. Each volume can 
contain only one library. 



Notes : 



Additional information on direct access devices and organ 
ization can be found in the System Guide . 



C) 



For each data set defined in a PROGRAM statement* a data 
set control block (DSCB) is generated in the program head- 
er. A DSCB is used to contain information about the cur- 
rent use of a data set within an active program such as the 
location of the data set and the next record number for 
sequential I/O. This allows the system to properly control 
access to the same data set by separate programs. 

A DSCB is a serially reusable program resource; therefore* 
within a single program it is your responsibility to pre- 
vent simultaneous access to the same data set from separate 
tasks. It is recommended that access to a data set within a 
given program come from a single task. If* however, it is 
necessary in a given application to access the same data 
set from within different tasks in the same program the 
user should use ENQ and DEQ to ensure serialized use of the 
affected DSCB. 
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EXIO CONTROL INSTRUCTIONS 



DCB 
EXIO 
EXOPEN 
IDCB 

I/O level control functions allow you to control? at a low lev- 
el, any I/O device attached to the system. They give you the 
ability to control devices not otherwise available using Event 
Driven Language instructions. They also give you the ability 
to gain closer control of a device than is provided by other I/O 
f ac i 1 i t i es . 

To use the EXIO control functions you should be familiar with 
I/O programming in assembler language. Refer to the section on 
Input/Output Operations in the manuals describing the process- 
ors for general descriptions of the immediate device control 
block (IDCB) and the device control block (DCB) and their use, 
and to the manuals describing the particular I/O device for 
specific information for that device. 

You must be thoroughly familiar with the device to be con- 
trolled. The facilities provided by these instructions are 
approximately those provided by the Series/1 hardware for I/O. 
You must, by using EXIO instructions, explicitly control every 
aspect of the device's operations. 

After you define each device to be controlled by an EXIODEV 
statement (see the System Guide ), you can use the EXIO and 
EXOPEN instructions. 

Each device must be controlled from one task at a time. Before 
a task relinquishes control of a device, it must assure that 
all interrupts from that device have been serviced. 

You must not alter a DCB until the operation caused by the EXIO 
instruction which referenced it is complete. The IDCB may be 
modified after its use in an EXIO instruction. 

I/O commands produced by the COMMAND operand of the IDCB state- 
ment are those used by IBM I/O devices and described in the pub- 
lications which describe the processors and I/O devices. Any 
other device must be designed to respond to these same commands 
if these instructions are to be used to control it. 

If an EXIO device produces interrupts, you must! 

1. Open the device by executing an EXOPEN instruction. This 
allows the interrupt handler to return device information 
to the user's program. 



o 
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Prepare the device by executing an EXIO instruction* so 
that it can interrupt the processor. 

WAIT in one or more tasks for one or more ECBs which will be 
posted when an interrupt is received. 



o 






Obtain all information required to service the interrupt. 
This information is available from: 

a. Code word in ECB posted 

b. Interrupt identification word and level status regis- 
ter (see "EXOPEN" on page 129) 

c. Residual status (refer to the description of DVPARM4 
operand statement in "DCB" on page 91) 

d. Cycle steal status (see description of listaddr oper- 
and of refid =, exope'» the EXOPEN instruction* and the 
description of COMMAND=SCSS operand of "IDCB" on page 
175) 

Prevent further interrupts if the interrupt servicing task 
is to terminate. This may be done by executing an EXIO 
instruction which specifies an IDCB with COMMAND=PREPARE 
and IBIT=OFF. 
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GRAPHICS INSTRUCTIONS 



CONCAT SCREEN 

GIN XYPLOT 

PLOTGIN YTPLOT 

The graphics instructions provide a tool for the development of 
graphics applications. They can aid in the preparation of 
graphic messages* allow interactive input* and draw curves on a 
display terminal. 

These instructions are only valid for ASCII terminals having a 
point-to-point vector graphics capability and compatible with 
the coordinate conversion algorithm for graphics mode control 
characters. This is described in detail in Internal Pes i gn . 
The function of the various ASCII control characters used by a 
terminal are described in the manual for that terminal. Such 
terminals may be connected to the Series/1 using the teletype- 
writer adapter. 

When the Event Driven Executive instructions are used* 
detailed manipulation of terminal instructions and text mes- 
sages is not required. All of the graphics instructions deal 
with ASCII data; therefore when an ASCII text string is sent to 
the terminal the XLATE=NO parameter should be coded. 

There are six graphic instructions. They are used in the same 
manner as other instructions, except that the supporting code 
will be included in your program* rather than in the supervi- 
sor. If all instructions are coded in a program* this code 
requires approximately 1500 bytes of storage. 

Use of the graphics instructions requires that your object 
program be processed by the link edit program* $LINK> in order 
to include the graphics functions which are supplied as object 
modules. EXTRN statements for the necessary modules are 
included in your program when the instructions are coded. The 
modules ($$C0NCAT, $$SCREEN, $$YPL0T* $$GIN* and $$PGIN) can 
be automatically included in your program when required using 
the $LINK autocall facility. Use the $AUTO autocall list pro- 
vided in ASMLIB for this purpose. Refer to Utilities* Operator 
Commands* Program Preparation* Messages and Codes for 
information on the use of the autocall option of SLINK. 

For a list of terminals supported* see "Terminal Support" in 
the System Guide . 



o 
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INDEXED ACCESS METHOD INSTRUCTIONS 



DELETE 
DISCONN 
ENDSEQ 
EXTRACT 



GET 


PUTDE 


GETSEQ 


PUTUP 


LOAD 


PROCESS 


PUT 


RELEASE 



The Indexed Access Method is a data management system that 
operates under the IBM Series/1 Event Driven Executive. It 
provides callable interfaces to build and maintain indexed 
data sets and to access, by key or sequentially, the records in 
that data set. In an indexed data set, each of the records is 
identified by the contents of a predefined field called a key. 
The Indexed Access Method builds into the data set an index of 
keys that provides fast access to the records. Features of the 
Indexed Access Method include: 

• Direct and sequential processing. Multiple levels of 
indexing are used for direct access; sequence chaining of 
data blocks is used for sequential access. 

• Support for high insert and delete activity without sig- 
nificant performance degradation. Free space is distrib- 
uted both throughout the data set and in a free pool at the 
end so that inserts can be made in place? space provided by 
deletes can be immediately reclaimed. 

• Concurrent access to a single data set by several request- 
ers. These requests can come from either the same or dif- 
ferent programs. Data integrity is maintained by a file, 
block, and record level locking system that prevents 
access to that portion of the file that is being modified. 

• Implementation as an independent task. A single copy of 
the Indexed Access Method serves and coordinates all 
requests. The buffer pool supports all requests and opti- 
mizes the space required for physical I/O; in the user pro- 
gram, the only buffer required is the one for the record 
currently being processed. 

• An Indexed Access Method utility program which provides 
the capability to create, format, load, unload and reor- 
ganize an indexed data set. 

The callable functions that comprise the Indexed Access Method 
are described in "Chapter 4 . Indexed Access Method" on page 327 
of this manual. They appear in alphabetic sequence by their 
function name, such as DELETE, DISCONN, and so on. 

"Example 14: Use of Indexed Access Method" on page 414 is a 
complete program which illustrates many of the Indexed Access 
Method services. This example should help you understand the 
use of these services. 
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The Event Driven Executive Indexed Access Method Licensed Pro- 
gram (5719-AM3) is required to use these facilities. 



LISTING CONTROL STATEMENTS 



EJECT 
PRINT 
SPACE 
TITLE 

Listing control statements are used to identify program output 
listings^ to provide blank lines in an assembly listing* and to 
designate how much detail is to be included in the listing. In 
no case are instructions or constants generated in the object 
program. Nith the exception of PRINT* listing control state- 
ments are not printed in the listing itself. 

The format used to describe these instructions is the same as 
that used for describing the Event Driven Executive 
instruction set. However* they are part of the assembler facil- 
ity itself and are not elements of the Event Driven Executive 
i nstruct i on set . 
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MULTIPLE TERMINAL MANAGER INSTRUCTIONS 
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ACTION 

BEEP 

CHGPAN 

CDATA 

CYCLE 



FAN 

FILEIO 

FTAB 

LINK 

LINKON 



MENU 
SETCUR 
SETPAN 
WRITE 



o 



The Multiple Terminal Manager is an optional licensed program 
which provides the Event Driven Executive user with a set of 
high-level functions designed to simplify the definition of 
transaction -oriented applications such as inquiry, file 
update, data collection, and order entry. 

Transact ion -oriented means that program execution is driven 
by terminal operator actions, typically, responses to prompts 
from the system. For example, a program executing under con- 
trol of the Multiple Terminal Manager displays a menu screen 
offering the operator a choice of functions. Based on the oper- 
ator's selection, the application program then performs proc- 
essing operations such as reading information from a data file, 
displaying the data at the terminal, and waiting for the next 
response . 

This prompt-response-process cycle between the Series/1 pro- 
gram and the terminal operator is the basic principle for the 
design of applications using the Multiple Terminal Manager. 

The terminal manager simplifies such transactions by? 

• Automatically allocating input and output buffers for the 
application program. 

• Performing I/O operations to access fixed-screen formats 
from the screen file. The term screen in this discussion 
refers to the image which is displayed on the screen of an 
IBM 4979, 4978 or 3101 Display Station. Fixed-screen for- 
mats consist of unmodifiable text and definitions of pos- 
sible areas for data input. On other systems, these may be 
referred to as maps, formats, or panels. Screens are built 
using the $ I MAGE utility. (See Utilities, Operator 
Commands, Program Preparation, Messages and Codes for 
additional information.) 
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Returning control to the user program to allow modifica- 
tion of the input buffer containing the screen. 

Performing the set of I/O operations involved in writing on 
the terminal screen, filling in unprotected fields with 
user-defined output data, and reading the data entered by 
the operator before returning control to the application 
program that requested the action. The terminal manager 
assumes that each action request involves both output and 
input operations, thus eliminating the need for the appli- 
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cation program to make separate requests. 



In addition* the Multiple Terminal Manager provides storage* 
file* program management* and terminal transaction statistics* 
sign on programs for password validation* error recovery for 
I/O* and program check conditions. 

Multiple Terminal Manager application programs can be written 
in Event Driven Language* assembler language* COBOL* PL/I* or 
FORTRAN IV. Disk I/O can be performed using i ndexed-access or 
direct-access methods. Terminal support is provided for IBM 
4979* 4978* and 3101 Display Stations and teletypewriter com- 
patible terminals attached using the single line or multiline 
asynchronous communication adapters. 

Note : Throughout the manual* when reference is made to the IBM 
3101 Display Station* it is inferred to mean model 1 and model 
2 . However, model 2 is considered only in block mode (full 
screen ) . 

The functions provided by the Multiple Terminal Manager are 
callable routines that perform terminal, disk and diskette 
input/output operations and control the execution of applica- 
t i on programs . 

The program-execution control and terminal I/O functions 
include? 

• A routine (ACTION) to initiate the prompt-response termi- 
nal I/O cycle. 

• A routine (CDATA) which provides information about the 
terminal which is controlling an executing program. 

• Two routines (LINK and LINKON) to link to a new program 
from the currently executing program. 

• A routine (MENU) to terminate program execution and return 
control to the Multiple Terminal Manager. 

• A routine (CYCLE) to voluntarily give up control of the 
program area to other users. This allows a user controlled 
form of time sharing. 

The Multiple Terminal Manager provides four callable functions 
for the specific control of the IBM 4978/4979 Display. They 
are * 

• A routine (SETPAN) to retrieve a screen panel from disk and 
move it into the input and output buffers. 

• A routine (SETCUR) to override the initial cursor posi- 
tion defined for that screen format. 
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• A routine (BEEP) to request the 4978 audible alarm be 
sounded on the next terminal I/O cycle. 

• A routine (CHGPAN) to notify the terminal manager of 
changes to a screen before it is written. 

For the teletypewriter user, the following functions are pro- 
v i ded J 

• A routine (ACTION) to write to the terminal and read a 
reply . 

• A routine (WRITE) to write to the terminal without waiting 
for an operator response. Multiple writes may be used to 
write long messages, with the last message being written 
using ACTION. 

• A routine (BEEP) to cause a bell character to be included 
in the next output line. 

The FILEIO function provides the following for disk and 
diskette files'. 

• Automatic open of the requested file 

• Indexed file support 

• Direct file support 

• Storage conservation through automatic open and close 
f unct i ons 

Two programming aids are available using the Multiple Terminal 
Manager : 

• A no -operation (FAN) adds programming compatibility with 
other programming environments. 

• An unprotected field descriptor function (FTAB) describes 
the fields of the screen image in the input buffer. 

The coding syntax for these functions are described in detail 
in "Chapter 5. Multiple Terminal Manager" on page 359 and are 
organized alphabetically by function name, such as ACTION, 
LINK, LINKON, and so on. 

Use of these facilities requires the Multiple Term inaL .Manager 
Licensed Program (5719-MS1) and also the Indexed Access Method 
Licensed Program (5719-AM3) if indexed files will be used. 



o 
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PROGRAM CONTROL STATEMENTS 

CALL 

CALLFORT 

RETURN 

SUBROUT 

USER 

Program control statements are used to define and control 
subsections within a program and can provide flexibility and 
save space. CALL, SUBROUT, and RETURN provide for the defi- 
nition and use of a reusable section of code. Calling a subrou- 
tine and the returning to the mainstream program reduces 
repetition of code and program complexity. 

CALL is also used to invoke the individual functions of the 
optional licensed programs Indexed Access Method and Multiple 
Terminal Manager. 

The USER statement allows Event Driven Executive programs to 
utilize the Series/1 assembler language in those specialized 
cases where the Event Driven Language does not meet application 
requirements. 

CALLFORT is used to invoke FORTRAN programs and subroutines. 

\i A/ 
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PROGRAM MODULE SECTIONING STATEMENTS 



COPY 

CSECT 

ENTRY 

EXTRN 

WXTRN 

The COPY statement allows you to copy into the your program a 
predefined source-program module from a data set. 

The CSECT statement allows you to give names to the separately 
assembled modules of a program. These modules are then link- 
edited together to form a complete program. 

The ENTRY, EXTRN, and NXTRN statements provide the information 
which allows the linkage editor (SLINK) to resolve symbolic 
address references among separately assembled program modules 
during link-edit processing. 

Labels defined by CSECT and ENTRY statements, along with their 
addresses in the link-edited program are listed in the MAP 
portion of SLINK output. 



o 
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PROGRAM SEQUENCING INSTRUCTIONS 



DO FIND 

ELSE FINDNOT 

ENDIF GOTO 

ENDDO IF 

The IF, DO, and GOTO instructions provide the means for 
sequencing a program through the correct logic path based on 
the data and conditions generated during the execution of the 
program. IF and DO involve the use of relational statements 
which, based on a true or false condition, determine the next 
instruction to be executed. That next instruction must begin on 
a full-word boundary. Relational statements consist of a com- 
bination of data elements and are of the following; 

EQ — Equal 

NE — Not equal 

GT — Greater than 

LT — Less than 

GE -- Greater than or equal 

LE -- Less than or equal 

The comparison is always arithmetic. A relational statement 
has the general format: 

(datal,relcond,data2, width) 

where t 

width is opt i ona 1 , 

relcond is one of the relational condition mnemonics, 

datal and data2 are data elements coded with the same 
syntax as other Event Driven Language instruction 
operands. Only data2 can contain immediate data. The 
immediate data can be decimal, hexadecimal, or EBCDIC 
data, must be an integer between -32768 and +32767, 
and will be converted to floating-point if necessary. 

The default data width is 1 word (16 bits). The following table 
shows the allowed width specifications. 

Specification Data Element Hidth 

BYTE 1 byte (8 bits) 

WORD 1 word C16 bits) (integer) 

DWORD Doubleword (32 bits) (integer) 

FLOAT Single-precision floating-point (32 bits) 

DFLOAT Extended-precision floating-point (64 bits) 

n n bytes (relcond may only be EQ or NE) 
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The last form (n) provides a means for comparing data strings. 
For example, two 8-byte character strings may be compared or> 
similarly, two data buffers may be checked for equality. This 
form implies that both datal and data2 are storage locations; 
an immediate second operand is not permitted. 



Several forms of the IF and DO instructions are allowed. They 
are described in detail in the instruction descriptions in 
"Chapter 3, Instruction and Statement Descriptions" on page 
51. The simplest form of the IF instruction is 

IF (A,EQ,B) 



If the word contained in the variable 
contained in the variable B , the next 
will be executed. This is called the 
IF-ELSE-ENDIF structure. For example: 



A is equal to the word 

sequential instruction 

true portion of the 



IF 



(A,EQ,B) 



ELSE 



ENDIF 



(code for true condition) 



(code for false condition) 






ELSE is an optional part of the structure, and if coded, the 
instructions following it are referred to as the false part of 
the structure. Therefore, in the example above, the 
instruction following the EL5E instruction will be executed if 
A is not equal to B. If ELSE is not coded, control passes to the 
instruction following the ENDIF if the condition is false. 



The IF and DO instructions permit logically connected state- 
ments of the form: 

statement, OR, statement 

statement, AND, statement 

More than two statements may be logically connected in an 
instruction. Logically connected statement strings are not 
evaluated according to normal Boolean reduction. Instead, the 
string is evaluated to be true or false by evaluating each 
sequence of : 

statement, conjunction 

to be true or false as follows: 



\J 



1. The expression is evaluated from left to right. 

2. If the condition is true and the next conjunction is OR, or 
if there are no more conjunctions, the string is true and 
evaluation ceases. 
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3. If the condition is false and the next conjunction is OR, 
the next condition is checked. 

4 . If the condition is false and the next conjunction is AND* 
or if there are no more conjunctions* the string is false 
and evaluation ceases. 



I 1 



5. If the condition is true* and the next conjunction is AND* 
the next condition is checked. 

The order of the statements and conjunctions in a statement 
string determines the evaluation of the string. It may be pos- 
sible* by reordering the sequence of statements and conjunc- 
tions* to produce a statement string that will be evaluated to 
the same results as Boolean reduction of the statement. For 
example* the statement string 

CA*EQ,B),AND, ( C , GT , D ) , OR , ( E , LT , F ) 

could be reordered as 

(E,LT,F),OR,(A,EQ,B) ,AND, (C,GT,D) 

without changing the results if evaluated by Boolean 
reduction. As a statement string in the IF or DO instructions* 
however* the two forms produce different evaluations. If A is 
not equal to B> but E is less than F* the first statement string 
will be evaluated false and evaluation will cease as soon as 
(A»EQ,B) is evaluated; however, the second statement string 
will be evaluated true if E is less than F* as would be expected 
from Boolean reduction for either the first or second statement 
string. 

When writing code with structures* program readability is 
improved by indenting nested structures. Two spaces for each 
nesting level is recommended. For example: 

IF (A,EQ,B) 

♦ 

DO WHILE, (X,NE,Y) 

IF (#1,EQ,1) 

ENDIF 
ENDDO 
ELSE 

ENDIF 



o 
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QUEUE PROCESSING 



DEFINEQ 
FIRSTQ 
LASTQ 
NEXTQ 




A QD is created by DEFINEQ and is 3 words in length. Nord 1 is a 
pointer to the most recent entry on a chain of active QEs. Word 
2 is a pointer to the oldest entry on a chain of active QEs. 
Word 3 is a pointer to the first QE on a chain of free QEs. If a 
queue is empty, words 1 and 2 contain the address of the queue 
(the address of the QD). If the queue is full, word 3 contains 
the address of the queue. 

QEs are also created by DEFINEQ and are also 3 words in length. 
Word 1 is a pointer to the next oldest entry on a chain of 
active QEs. Word 1 of the most recent entry points to the QD. 
Word 2 is a pointer to the next most recent entry on a chain of 
active QEs. Word 2 of the oldest entry points to the QD. Word 3 
of a free QE is a pointer to the next element in the free chain 
of QEs. Word 3 of the last QE in the free chain is a pointer to 
the QD. Word 3 of an active QE is the queue entry as described 
above « 

Figure 2 on page 38 shows how a group of QEs are chained from a 
QD. 
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Queue processing 



QE chain 
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Figure 2. The Control Mechanism of Queue Processing 
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SENSOR-BASED I/O STATEMENTS 



IODEF 

SBIO 

SPECPIRT 



The sensor-based I/O statements provide the means for defining 
the devices* device addresses* and the general operating envi- 
ronment for the sensor-based application program. See Figure 1 
on page 10 for a diagram showing the relationships. 

The purpose of a sensor I/O application program is to communi- 
cate with sensor I/O units. This communication is used for mon- 
itoring or controlling a process outside the Series/1 
processor from a program within the processor. 

In sensor applications* a process produces either digital or 
analog signals. These signals are sensed by sensor devices and 
transferred through a sensor I/O unit to your sensor program. 
These signals can be compared to stored digital data for moni- 
toring. For process control* the application program must 
write new values to the sensor units. 



SYSTEM CONFIGURATION STATEMENTS 



BSCLINE HOSTCOMM TAPE 

DISK SENSORIO TERMINAL 

EXIODEV SYSTEM TIMER 

These statements are used only during the generation of a 
supervisor. For more information on System Configuration and a 
description of each statement* refer to the "System Configura- 
tion" topic in the System Gu i de . 
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I TAPE I/O INSTRUCTIONS 

CONTROL POINT V-^ 

DSCB READ 

NOTE WRITE 

These instructions control the IBM Series/1 4969 Magnetic Tape 
Subsystem and provide sequential access to magnetic tape data 
sets. When a program is first loaded for execution* all the 
data sets named in your PROGRAM statement have been opened for 
access (reading or writing) and are positioned to the first 
record . 



Definitions For Tape Data Sets 



Tape Label: A tape label consists of at least two 80-character 
records which describe the tape contents* such as date the tape 
was created* the block size and record length* and other perti- 
nent data. This data is usually in a specific format and 
referred to as a standard label. Non-standard labels may be 
used but no automatic processing will be performed on such 
labels by EDX. There is also a trailer label which has a stand- 
ard format and contains record count* block count* and so on 
for the tape. The use of labels is optional and if they are pre- 
sent they can either be processed or bypassed. 

Record: The basic unit of tape data storage available to an 
application program is a record. A record may be any size 
between 18 and 32767 bytes. The default size of a record is 256 
bytes . 
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Data Set: A tape data set is a set of consecutive records 
recorded on a magnetic tape. No special restrictions exist 
within the system for valid names* but the use of standard sys- 
tem utility programs for data set access and allocation dic- 
tates that an alphameric character string be used as a name. 

A tape data set can only contain data* not executable code. 

Volume: A volume is all of the records recorded on a reel of 
magnetic tape. Each volume is assigned a volume name of 1 to 6 
alphameric characters. 

Load Point: The beginning of tape (BOT) where the load point ^^^ 

sticker is located. Normally this location is approximately 25 g j 

feet from the leading end of a reel of magnetic tape and placed ^^ 
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I on the glossy side of the tape near the front edge. 

End of Tape (EOT): The EOT sticker which is located near the 
physical end of a reel of magnetic tape. During a WRITE or CON- 
TROL WTM command* the tape drive sensing this sticker will 
raise the EOT condition in the tape drive causing a return code 
value of 24 to be returned. This sticker is normally far enough 
from the physical end of tape to allow a complete block of 
records to be written after it is sensed. It is located on the 
glossy side of tape near the rear edge. 

I Notes: 
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Additional information on magnetic tape devices and organ- 
ization can be found in the System Guide . 

For each data set defined in a PROGRAM statement, a data 
set control block (DSCB) is generated in the program head- 
er. A DSCB is used to contain information about the cur- 
rent usage of a data set within an active program such as 
the location of the data set and the next record number for 
sequential I/O. This allows the system to properly control 
access to the same data set by separate programs. 

A DSCB is a serially reusable program resource; therefore, 
within a single program it is your responsibility to pre- 
vent simultaneous access to the same data set from separate 
tasks. It is recommended that access to a data set within a 
given program come from a single task. If, however, it is 
necessary to access the same data set from within different 
tasks in the same program, you should use ENQ and DEQ to 
ensure serial use of the affected DSCB. 
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A tape drive cannot be shared by multiple programs at the 
same time. You should not create or open multiple DSCBs 
for the same tape volume. If you pass a tape data set to 
another program (DS= operand of LOAD), the DSCB of the pro- 
gram issuing the LOAD will be disconnected from the tape 
data set to allow it to be passed to the program being 
loaded . 



When passing DSCBs to overlay programs, it is suggested 
that the address of the DSCB in the root program be passed 
and not the data set itself. If the data set is passed, 
close offline (CLSOFF) will be invoked when the overlay 
terminates; when the overlay executes a PROGSTOP state- 
ment . 
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TASK CONTROL INSTRUCTIONS 



ATTACH ENDATTN PROGSTOP 

ATTNLIST ENDTASK QCB 

DEQ ENDPROG RESET 

DETACH ENQ TASK 

ECB LOAD WAIT 

END POST WHERES 
PROGRAM 

The basic unit of a program is a task. The PROGRAM statement 
defines the initial task. Many tasks may be active concurrent- 
ly and asynchronously in a program. A task may be activated or 
attached* using the ATTACH command* by the primary task or by 
other tasks. Any combination of instructions may be used with- 
in a task and will be executed independently of other tasks. 
Tasks within a program may communicate with each other through 
common storage areas or through system instructions and event 
control blocks. The facilities of the Event Driven Executive 
supervisor provide the capability of synchronizing task exe- 
cution. 

A user-written application program is composed of one or more 
tasks. The instructions listed here are used to define tasks 
and to control which of the tasks are active at any given 
moment* plus other related functions. "Example 7 ' A Two Task 
Program With ATTNLIST" on page 395 and "Example 9: Floating 
Point, WAIT/POST, GETEDIT/PUTEDIT" on page 398 illustrate the 
use of several task-control instructions. 

Several programs, each composed of one or more tasks, may be 
loaded from disk and run concurrently. When a user task gains 
control of the system, its instructions are executed until a 
higher priority task becomes ready, at which time the higher 
priority task gains control of the system. 



A program may have more than one independently operating task 
and these tasks may communicate with one another using data 
storage locations or event control blocks within the specific 
program of which they are a part. Communication among tasks in 
separate programs can be accomplished using the cross- 
partition facilities provided with many of the task control 
instructions. Communication can also be accomplished using a 
user-provided common data storage area (SSYSCOM) in the super- 
visor. The services available for cross partition communi- 
cation are described further in the System Gu i de under "Cross 
Partition Services." 

It is your responsibility to write programs in such a way that 
the tasks operate in the desired sequence and terminate proper- 
ly. 

Concurrent execution of multiple tasks is shown in Figure 3 on 
page 43 
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Overview of the functions 
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Concurrent execution 

Ref. PRIMTASK TASK1 TASK2 PROGL TASKA 



Figure 3. The Concurrent Execution of Multiple Tasks 
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TERMINAL I/O INSTRUCTIONS 



DEQT IOCB READTEXT 

ENQT PRINTEXT RDCURSOR 

ERASE PRINTIME QUESTION 

GETVALUE PRINDATE TERMCTRL 
PRINTNUM 

With few exceptions; you can write the terminal I/O 
instructions in an application program without concern for the 
type of terminal used or its hardware address. The terminal 
used by a program is assigned dynamically by the system as the 
one used to invoke the program and may vary from one invocation 
to the next without program change. Exceptions to this rule may 
exist with terminals which use special control characters or 
which have unique hardware capabilities such as graphics oper- 
ations. Certain screen-oriented instructions are applicable 
only to the IBM 4978/4979 display. 

The Event Driven Executive provides facilities to prevent con- 
flicts among multiple programs using the same terminal. Each 
individual operation (read* write* or control) acquires exclu- 
sive control of the terminal for its duration. If you desire 
exclusive control for the duration of a sequence of 
instructions* for example to print a report* you can use the 
ENQT and DEQT instructions. 



Error Handl i ng 



The application program may provide response to errors by means 
of the TERMERR operand in the PROGRAM and TASK statements. In 
programs or tasks for which the TERMERR operand is coded with 
the label of an instruction* control is given to that 
instruction when an unrecoverable terminal I/O error occurs. 
At that point the task code word* whose label is the task name* 
contains the error code* and the following word contains the 
address of the instruction during which the error occurred. If 
TERMERR is not coded* the error code is available in the task 
code word but program flow is not interrupted. Error codes are 
shown with the READTEXT* PRINTEXT* and TERMCTRL instructions 
in this manual. Use of TERMERR is the recommended method for 
detecting errors because the task code word is subject to 
modification by numerous system functions and may not always 
reflect the true status of the terminal I/O operations. 

Because TERMERR receives control only when an actual I/O error 
occurs* it is important to note the way a PRINTEXT statement 
executes. A PRINTEXT statement does not result in immediate I/O 
operation or possible I/O error unless the TEXT statement con- 
tains an 3 character or* the SKIP operand is specified in a sub- 
sequent PRINTEXT statement. This information should be 
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I considered when coding a TERMERR routine. 



Data Representation 



Output: Normally* alphameric text data to be written to a ter- 
minal is represented internally as a string of EBCDIC charac- 
ters. The system translates the data to the code expected by 
the device. Means are also provided for writing untranslated 
data to the device for special purposes. 

Integer numeric data is represented internally as binary inte- 
gers of single-precision (2 byte) or double-precision (4 
byte), or as floating-point numbers of single-precision (4 
byte) or extended-precision (8 byte). You can specify trans- 
lation to a designated external graphic form with numeric out- 
put instructions. 



Input: Programs may request entry of text data in word mode 
without imbedded blanks. Nhen several words are entered on a 
line* they must be separated from each other* and from any 
numeric entries on the same line* by one or more blanks. Pro- 
grams such as the text-editor utility will also expect data 
entry in line mode* in which case the entire input line is 
stored internally as a string of EBCDIC characters. The ENTER 
key terminates an input operation in either word mode or line 
mode . 

Integer numeric entries may be either decimal or hexadecimal* 
depending upon the program request. Decimal entries may 
include a plus (+) or minus (-) sign. When multiple numeric 
entries are made on the same line, the entries may be separated 




numeric input are given with the DATA . . .... .,.._.. 

in "Chapter 3. Instruction and Statement Descriptions" on page 
51. 



Forms Control 
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In order to achieve a high degree of device independence, all 
terminals* whether their display media be perforated paper* 
paper rolls* or electronic display screens, are treated 
according to line printer conventions. This means that within 
the limits imposed by differing page sizes and margins, the 
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output from an application program will be identical in format 
for all terminal types. It is also possible to exercise direct 
control of forms movement by using the direct I/O capabilities 
of terminal I/O at the expense of device independence. 

The forms control keyword parameters are common to several of 
the terminal I/O instructions. The values specified for any of 
the forms control parameters (SKIP, LINE, or SPACES) may be 
either constants or variables, and they may be indexed. Note 
that when forms parameters are specified on an I/O instruction, 
the forms operation always takes place before the data trans- 
fer . 

Output Line Buffering: Two successive output instructions 
without the occurrence of the SKIP or LINE options, or the new 
line character 3, result in concatenation of the data to form a 
single output line. The line is not displayed until a new line 
is indicated or the terminal is released through an explicit 
DEQT command, or the program terminates, or an input operation 
is performed. Normally, when concatenated output exceeds the 
line-buffer capacity, subsequent output is lost until a new 
line indication is given; however, you can allow the generation 
of overflow lines by coding OVFLINE=YES in the TERMINAL state- 
ment for the device in question. 

Forms Interpretation for Electronic Display Screens: The 

PAGSIZE parameter for the IBM 4978/4979 Display is forced to 
24. The margin settings TOPM , BOTM , LEFTM and RIGHTM delimit a 
logical screen which may be accessed independently of other 
logical screens. Once a logical screen has been defined and 
accessed, all I/O and forms control operations are defined rel- 
ative to the margins of that screen. See the TERMCTL, ENOT, and 
IOCB statements in "Chapter 3. Instruction and Statement 
Descriptions" on page 51. Screen operations are described more 
fully under "Screen Management" on page 48. 

Burst Output With Electronic Display Screens: Whenever the 
number of consecutive output lines reaches the logical screen 
size (B0TM-T0PM+1), the system will suspend further output, 
allowing the terminal operator to view the display. Upon oper- 
ator signal (pressing the ENTER key on the 4978 or 4979), out- 
put continues until the screen is again filled or a pause for 
input occurs. 



Prompting and Advance Input 



As a terminal user, your interactive response with an a;prpl i ca-' 
t i on or utility program is generally conducted through prompt- 
ing messages which request you to enter data. Once you have 
become familiar with the dialogue sequence, however, prompting 
becomes less necessary. The instructions READTEXT and 
GETVALUE include a conditional prompting option which enables 
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you to enter data in advance and thereby inhibit the associated 
prompting messages. Advance input is accomplished simply by 
entering more data on a line than may have been requested by the 
program. Subsequent input instructions which specify 
PROMPT=COND will then read data from the remainder of the buf- 
fered line* and will issue a prompting message only when the 
line has been exhausted. If you specify PROMPT=UNCOND with an 
input instruction* an associated prompting message is issued 
and the system waits for your input. The prompt message 
causes* as does every output message* cancellation of any out- 
standing advance input. 



Attention Handling 

Attention Keys: Program operation may be interrupted by press- 
ing the keyboard ATTN key. When this key is recognized* the 
greater than symbol (>) is displayed and the operator may enter 
either a system function code (for example* $ L ) or a program 
function code defined by an active ATTNLIST. For ASCII termi- 
nals* the keys with character codes X f lB f (normally marked ESC 
on the keyboard) and X'7D f (normally the right brace) are both 
recognized as the attention key. 

Program Function Keys: All program function keys on the IBM 

O 4978/4979 Display Terminal are recognized by the attention 

list code $ P F . In addition* individual keys may be separately 
recognized by $PF1 to $PF254. It is possible to provide sepa- 
rate entry points to the application code for particular keys* 
or for rapid response* a single entry for all keys. When the 
application program attention handler is entered for any 
program function key* the code for that key is placed in the 
second word of the keyboard task control block. 

The order in which the program function key codes appear in the 
attention list is significant. For example: 

ATTNLIST ($PF1,ENT1,$PF5,ENT2,$PF,ENT3) 

would cause the program to be entered at ENT3 for all program 
function keys except PF1 and PF5. 

KEYBOARD AND ATTNLIST TASKS: When the ATTN key or one of the PF 
keys is pressed on a terminal* the keyboard task for that ter- 
minal gets control. Except for the hardcopy key (normally 
PF6)» the PF keys are always matched against your ATTNLIST(s). 
For an ATTN* you enter a command which is first matched against 
the system ATTNLIST and then against your ATTNLIST(s). If the 
command matches the system ATTNLIST* appropriate system action 
is taken ( $ D > $L» etc.). If there is no match against any 
ATTNLIST, the message FUNCTION NOT DEFINED is displayed on the 
terminal. For a PF key or an ATTN command match against your 
ATTNLIST, the corresponding attention list task is given con- 
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trol. The appropriate application program attention routine 
then runs under this task. If the ATTNLIST task is already 
busy, the message, "> NOT ACKNOWLEDGED" is displayed on the 
terminal. You the have the option of reentering the command or 
pressing the PF key at a later time. 






When the application program attention handler is entered, the 
index registers are initially set as follows: 

#1 Address of task control block (TCB) 

#2 Address of terminal control block (CCB) 

The code for an interrupting key may therefore be obtained by 
coding, for example: 



MOVE 



CODE, (2,#1) 



Screen Management 



Support for the 4978/4979 display allows the application pro- 
gram to partition the screen into logical screens, and to man- 
age a logical screen according to one of two basic modes, roll 
or static. The roll screen mode operates in a manner which sim- 
ulates a typewriter terminal, while the static screen mode pro- 
vides a convenient means for data display and data entry. The 
static screen mode is supplied only for the IBM 4978/4979 Dis- 
play Term i na Is . 



o 



Roll Screens: Roll screens differ from typewriter printing 
media only in the absence of hardcopy and in the limited amount 
of display history which can be retained. The amount of histo- 
ry to be retained on a roll screen is specified through the 
NHIST parameter on the TERMINAL or IOCB statements. The value 
of this parameter defines the boundary between two areas of the 
screen, the history area (extending from TOPM to 
TOPM + NHIST-1 ) , and the working area (extending from TOPM + NHIST 
to BOTM). The top of the working area is line for purposes of 
forms control; the display proceeds from line to the bottom 
margin, after which the working area is shifted into the histo- 
ry area, the working area is erased, and the display begins 
again at line . 



Since screen shifting is implemented through a hardware mech- 
anism which affects the entire physical screen line, shifting 
is not performed for roll screens whose left and right margins 
are other than and 79. This protects adjacent logical 
screens from alteration. All other aspects of roll screen man- 
agement are preserved. 

Static Screens: The object of static screen management is to 
provide the application program with complete control over the 
screen image, and to allow the terminal operator to modify an 
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entire screen image before data entry. Static screens are 
therefore distinguished from roll screens in the following 
Mays: 

• Forms control operations which would cause a page-eject 
for roll screens simply wrap around to the top for static 
screens. No automatic erasure is performed; selected 
portions of the screen are erased with the ERASE command. 



Protected fields may be written; 
available for roll screens. 



this function is not 



The cursor position, relative to the logical screen mar- 
gins) may be sensed by the application program through the 
RDCURSOR command . 

Input operations directed to static screens normally do 
not cause a task suspension wait for the ENTER key; they 
are executed immediately. This allows the program to read 
selected fields from the screen after the entire display 
has been modified locally without program interaction by 
the operator. Operator/program signaling is provided 
through the program function keys and a special 
instruction, WAIT KEY. 

In order to allow convenient operator /program interaction 
to take place on a static screen, the QUESTION, READTEXT, 
and GETVALUE instructions are executed as if they were 
directed to a roll screen (automatic task suspension for 
input). READTEXT and GETVALUE are treated this way only 
when a prompt message is specified in the instruction. 



o 



The character 3> is treated as 
does not indicate new line. 



a normal data character. It 



The utility program $ I M A G E (see Utilities, Operator Commands, 
Program Preparation, Messages and Codes ) can be used to 
construct formatted screen images in a user- i nter act i ve mode 



and save them in disk or diskette data sets. In addition, the 
images may be retrieved and displayed by application programs 
through the use of system provided subroutines. See "Formatted 
Screen Images", in the System Gu i de for details. 

Operator Signals: An application program may wait at any point 
for a 4978/4979 terminal operator to press the ENTER key or one 
of the program function keys. This is done by issuing the WAIT 
KEY instruction. 

When a key is pressed and the program operation resumes, the 
key is identified in the second task code word at taskname+2 
(see "Attention Handling" on page 47). The code value for the 
ENTER key is 0. For the program function keys, the value is the 
integer corresponding to the assigned function code; 1 for 
$PF1, 2 for $PF2, and so on. 
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The program function keys do not generate attention interrupts 
during execution of the WAIT KEY instruction. They only cause if~\ 

that instruction to terminate* allowing subsequent \^ 

instructions to be executed. 



TIMING INSTRUCTIONS 



GETTIME 

INTIME 

PRINDATE 

PRINTIME 

STIMER 

The timing functions are used in many different ways in the 
Event Driven language programs. The time-of-day clock can be 
displayed or it can be stored for data collection purposes. It 
can also be used to start and stop the execution of tasks. 

Interval timers are also available for use by user programs and 
have a minimum time increment of 1 millisecond. The 4952 
clock/comparator and the 4953/4955 timer feature #7840 are 
supported . 
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CHAPTER 3. INSTRUCTION AND STATEMENT DESCRIPTIONS 



The Event Driven Language instructions and statements are pre- 
sented here in alphabetic order. A brief description of the use 
of the instructions is provided where appropriate, followed by 
information on how to invoke any particular operation, the 
required parameters, and the defaults used if parameters are 
not specified. Each operand (or parameter) is listed and 
described. Event Driven Language instructions have the stand- 
ard Series/1 macro assembler format. 

Each instruction is described in detail using the following 
format^ 

Instruction name 

Functional description 

Syntax 

Operands 

Coding examples 

The "Address Indexing Feature" on page 6 can be used only with 
certain instructions and operands. The syntax description of 
each instruction specifies which operands, if any, are 
i ndexable . 

The instructions are grouped by function beginning in "Chapter 
2. Instructions and Statements - Overview" on page 15 and each 
functional group is presented alphabetically. Also, general 
information that is common to each group is discussed there. 

You should note in this chapter that the functional group of 
each instruction is identified at the top of the first page of 
each instruction. You can use this functional identifier to 
refer back to the discussion in Chapter 2 of each functional 
group . 

Some instructions are also shown in various programming exam- 
ples beginning in "Chapter 6. Programming Examples" on page 
383. These examples will give further assistance in the proper 
use of the more complex instructions. 
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ADD 






Data Manipulation 

The ADD instruction adds the signed value of operand 2 to the 
signed value of operand 1. The value of operand 2 remains 
unchanged . 

Note i An overflow condition is not indicated by EDX. 

Syntax 



label 



ADD opndl,opnd2iCount,RESULT=,PREC=, 
P1=,P2=,P3= 



Required? opndl, opnd2 

Defaults: count=l,RESULT=opndl,PREC=S 

Indexable: opnd 1 f opnd2 » RESULT 



Operands 
opndl 

opnd 2 
count 



Descr i pt i on 

The name of the variable to which 
applies? it cannot be a constant. 



the operat i on 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit constant may be specified. 

The number of consecutive variables in opndl or 
RESULT upon which the operation is to be performed. 
The maximum value allowed is 32767. 



RESULT= The name of a variable or vector in which the result 
is placed. The variable specified by the first 
operand is not modified. This operand is optional. 

PREOXYZ The precision value X applies to opndl, Y to opnd2, 
and Z to the result. The value may be either S 
(single-precision) or D (double-precision). The 
three operand specification may be abbreviated 
according to the following rules: 
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Px = 



ADD 



• If no precision is specified* all operands are 
5 i ng le prec i s i on . 

• If a single letter (S or D) is specified, it 
applies to the first operand and result, with 
the second operand defaulted to single 
prec i s i on . 

• If two letters are specified, the first applies 
to the first operand and result, and the second 
to the second operand. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands ( P x = ) " on page 8 for 
further descriptions. 



Mixed-precision Operations ' Allowable precision combinations 
for ADD operations are listed in the following table: 



opndl 



opnd2 



Result 



Abbrevi ation 



Remarks 



S 

SSD 
D 
DD 



default 



Note : Operand 2 is either one or two words depending on the 
precision specified with the keyword PREC. The total length of 
operand 1 is determined by the operand 1 precision multiplied 
by the value in the count operand. 



Example 

ADD #1,2 

ADD E,15,PREC=D 

ADD V1,A,3,RESULT=V2 



add 2 to index register 1 

add 15 to double-prec value 

add the value in A to each 
of 3 words starting at VI 
and place the results in 3 
words starting at V2. VI 
and A remain unchanged. 
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ADDV 



ADDV 






Data Manipulation 

The add vector instruction (ADDV) is used to add the components 
of operand 2 to the corresponding components of operand 1. 
Consecutive variables contained in operand 2 are added to the 
corresponding variables contained in operand 1 . 

Note ♦ An overflow condition is not indicated by EDX. 

Syntax 



label 



ADDV opndl,opnd2,count,RESULT=,PREC=, 
P1=,P2=,P3= 



Required: op ndl»opnd2, count 
Defaults: RESULT=opnd 1 , PREC=S 
Indexable: opnd 1 , opnd2 , RESULT 






Operands 
o p n d 1 

opnd2 
count 
RESULT* 



PREC=XYZ 



Descr i pt i on 

The name of the variable to which 
applies; it cannot be a constant. 



the operat i on 



The value by which the first operand is modified. 
Either the name of a variable or an explicit con- 
stant may be specified. 

The number of consecutive variables in both opndl 
and opnd2 upon which the operation is to be per- 
formed. The maximum value allowed is 32767. 

The name of a variable or vector in which the result 
is placed. In this case the variable specified by 
the first operand is not modified. This operand is 
opt i onal . 

The precision value X applies to opndl, Y to o p n d 2 > 
and Z to the result. The value may be either S 
(single-precision) or D (double-precision). The 
three operand specification may be abbreviated 
according to the following rules: 
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ADDV 



If no precision is specified, all operands are 
single-precision. 



If a single letter (S or D) is specified, it 
applies to the first operand and result, with 
the second operand defaulted to single 
prec i s i on . 

If two letters are specified* the first applies 
to the first operand and result, and the second 
to the second operand. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px s )" on page 8 for 
further descriptions. 



Mixed-precision Operations : Allowable precision combinations 
for integer arithmetic operations are listed in the following 
table? 






opndl 



opnd2 



Result 



Abbrevi at ion 



Remarks 



S 

SSD 
D 
DD 



default 



Operations On Index Registers 



Index registers may generally be treated as ordinary single- 
precision integer arithmetic or logical variables. However, 
results of a vector operation directed at the registers, #1 and 
#2 may not extend beyond #2. 
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ADDV 



Example 

VI DATA 32F*l f 
V2 DATA 32F'2' 

ADDV V1,V2,32 add V2 to VI, 32 values 
(After execution, VI contains 3 2 F ' 3 ' ) 



% jf 



ADDV 
V3 DATA 
V4 DATA 



#1,V3,2 
F' l f 
F'2 f 



add V3 to #1 and V4 to #2 



(#1 is incremented by 1 and #2 is incremented by 2.) 



; ) 
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AND 



Data Manipulation 



The AND instruction causes a logical anding together of the bit 
positions in operand 2 to operand 1. The operands are treated 
as bit strings and a comparison of each of the corresponding 
bits in each string is made. If the operand bits are both 1 > 
the corresponding result bit is also set to 1. If either or 
both of the operand bits is a > the corresponding bit in the 
result i s set to . 



Syntax 



label 



AND opndl ,opnd2, count , RESULT=, 
P1=,P2=,P3= 



Required: opndl»opnd2 

Defaults: count = C 1 , WORD ) , RESU LT=opnd 1 , 

Indexable: opndl , opnd2 , RESULT 



Operands Descr i pt i on 

opndl The name of the variable to which the operation 
applies; it cannot be a constant. The length of 
opndl is determined by multiplying count times pre- 
cision. 



opnd2 



The value by which the first operand is modified. 
Either the name of a variable or an explicit con- 
stant may be specified. 



count 



The number of consecutive, variables in opndl upon 
which the operation is to be performed. The maximum 
value allowed is 32767. 



The count operand can include the precision of the 
data. Because these operations are parallel (the 
two operands and the result are implicitly of like 
precision) only one precision specification is 
required. That specification may take one of the 
following forms : 



Chapter 3. Instruction and Statement Descriptions 



57 



AND 



RESULT* 



BYTE — byte precision 
WORD «-- word precision 
DWORD — doubleword precision 

This optional operand represents a variable or 
vector in which the result is to be placed. In this 
case the variable specified by the first operand is 
not modi f i ed . 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Example 

AND A,X'Q0FF f 



AND bit positions of the constant 
X'OOFF with variable A 



AND 



B, A, CI, BYTE) AND bit positions of A with B 



In the following example a mask value is ANDed with a data field 
to turn off the low order 4 bits in the data byte without 
affecting the other bits. After execution of the AND, the 
field DATA contains X'EO' (binary 1110 0000). 



AND 



DATA1,MASK, (1,BYTE) 



X_>' 



DATA 
MASK 



DC 
DC 



X'E7» 
X'F0 T 



binary 1110 0111 
binary 1111 0000 
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ATTACH 



ATTACH 



Task Control 



The ATTACH instruction activates execution of another task. If 
the named task is already in the attached state* no operation 



occurs . 




When an ATTACH statement is issued* the address of either the 
default terminal or the currently active terminal for the task 
issuing the ATTACH* is placed into STCBCCB of the target task. 
Therefore* the same terminal is active for both tasks. 

Syntax 



% 



label 



ATTACH 



taskname*priority*CODE-value> 
P1=,P2=,P3= 



Required: taskname 
Defaults: C0DE=-1 
Indexab le : none 



Operands Descr i pt i on 

taskname Name of the task to be attached, 
defined with a TASK statement. 



This task must be 



priori ty 



|^\ 



CODE = 



A priority to be assigned to the task. This 
priority will override and replace the one ori- 
ginally assigned in the TASK statement. It remains 
in effect unless superceded by a subsequent ATTACH 
statement. See the description of "TASK" on page 
285 for a complete definition of priority. 

A code word to be inserted in the first word of the 
task control block of the task being attached. The 
code word may be tested in the attached task by 
referring to the taskname operand. Sometimes when 
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ATTACH 



a task is attached from more than one point* it may 
be desirable to inform the task of the origin of the 
attachment. The code word value provides a simple 
mechanism for accomplishing this. Note that the 
code word should be examined immediately upon entry 
to the attached task, since execution of certain 
instructions (for example* I/O instructions) will 
cause the task code word to be overlaid. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px-)" on page 8 for fur- 
ther descriptions. 






^n^jr 
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ATTNLIST 



ATTNLIST 



o 



Task Control 



The ATTNLIST statement provides entry to one or more user writ- 
ten asynchronous attention interrupt handling routines. When 
the attention key is pressed on a user terminal* the system 
will query the user for a 1-8 character command. By con- 
vention, commands beginning with $ are reserved for system use. 
All other character combinations are allowed. 

The ATTNLIST statement produces a list of command names and 
associated routine entry points. Therefore, this statement 
should not be placed between executable instructions. If the 
command entered is specified in the list, control will be 
passed to the associated user routine. This provides you with 
a mechanism for interactive control of programs from a termi- 
nal. These routines should be short because they are executed 
on hardware interrupt level 1; therefore, they may interfere 
with the execution of any other user programs. They must end 
with the ENDATTN instruction. 






Coding of a LOCAL or a GLOBAL ATTNLIST causes a special 
ATTNLIST task control block (named $ATTASK) to be generated 
within your program. Routines invoked by ATTNLIST statements 
operate under the ATTNLIST task asynchronously with the other 
user or system tasks. System operator commands, however, oper- 
ate as part of the system keyboard task within the supervisor. 
The following instructions are not recommended for use in an 
ATTNLIST routine: DETACH, ENDTASK, PROGSTOP, LOAD, STIMER, 
WAIT, TP, READ, WRITE, ENQT, and DEQT. 



If the $DEBUG utility program is to be used to 
program, then the $ D E B U G commands, listed in the 
Operator Commands* Program Preparation, Messages 



test your 
Uti lities, 
and Codes 



cannot also be defined in 
tested . 



an ATTNLIST in the program to be 
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ATTNLIST 



Syntax 



label 
SCOPE* 



ATTNLIST (celt locl,cc2,loc2, 
SCOPE= 



. t ccn > locn ) , 



Required: c c 1 » 1 o c 1 
Defaults: SCOPE=LOCAL 
Indexab le : none 



Operands Descr i pt i on 

ccl The command identification requiring 1- to 8 - 
alphameric characters. One exception is that $ is 
reserved for system use as a first character, 
except as noted under "Attention Handling" on page 
47. The use of the 4979/4978 terminal program func- 
tion keys to invoke ATTNLIST routines are defined 
there. Also see use of $ D E B U G commands in Utili- 
ties* Operator Commands. Program Preparation* Mes- 
sages and Codes . 



loci 
SCOPE= 



Name of the routine to be invoked. 

An indicator of where the ATTNLIST is invoked f 
either GLOBAL or LOCAL. GLOBAL allows the ATTN 
command routines to be invoked from any term 
assigned to the same storage partition. LOCAL 
its the invoking of the commands to the spec 
terminal (assigned to the same partition) 
which the program containing the command 
loaded. This is based on the premise that the pa 
t i on assignment of the terminal has not been dy 
ically changed by a $CP command. A program may 
one LOCAL ATTNLIST and one GLOBAL ATTNLIST. 

N o t e t The following conditions apply to the ATTNLIST: 



1. The $EDXASM compiler allows only one list with a maximum of 
254 characters . 

2. The Series/1 macro assembler and host assemblers allow 
multiple lists but with a maximum of 125 characters per 
list. 



rom , 
LIST 
i nal 
1 i m- 
i f ic 
from 
was 
rti- 
nam- 
ha ve 
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Example 



ATTNLIST 



CPC1,PC0DE1,PC2,PC0DE2) 



PC0DE1 MOVE C0DE,1 
ENDATTN 



ENTER HERE BY PRESSING 
ATTENTION AND KEYING 'PCI 1 



PCODE2 POST EVENT, 2 ENTER HERE BY PRESSING 

ENDATTN ATTENTION AND KEYING , PC2« 

Figure 4 shows the functional flow when ATTNLIST is used. Also 
see "Example 7: A Two Task Program With ATTNLIST" on page 395. 



^ta>^ 




ATTNLIST 



abc,exit1 



xyz,exit2 



exitl 



ENDATTN 



exit2 



ENDATTN 



o 



Figure 4. Function of ATTNLIST 
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BSC 



BSC (BINARY SYNCHRONOUS COMMUNICATIONS) ( REFERENCE ONLY) 



Telecommunications 



BSCCLOSE 



BSCREAD 



BSCIOB 



BSCOPEN 



BSCWRITE 



The Binary Synchronous instructions are described in detail in 
the Communications and Terminal Applications Guide 






\J 



64 SC34-0314 



BUFFER 



o 



BUFFER 



Data Definition 



The BUFFER statement defines a data storage area. The standard 
buffer contains an index? a length* and a data buffer. The 
index may be used to indicate the current total number of words 
stored in the buffer. Both the index and the data buffer are 
initialized to . 

Certain instructions? for example INTIME and S B 1 ? have an 
optional indexing facility wherein they can be used to add new 
entries sequentially to a buffer by implicitly referencing and 
incrementing the index word. The index can be thought of as a 
subscript to a one dimensional array. If a buffer becomes full 
and is to be reused* the index word must be reset to 0. Examina- 
tion of the index word also indicates how many entries are cur- 
rently in use in a buffer. You may assign a name to the index 
word in the BUFFER statement to provide for such program refer- 
ences . 

BUFFER can be used to define the specialized storage area 
needed for use with the Host Communication Facility TP 
READ/WRITE instruction? and can also be used with the Terminal 
I/O instructions. Use of BUFFER for terminals is explained 
under the IOCB statement. 

For a physical layout of a buffer see Figure 5 on page 67. 

Syntax 



label 

Required: 
Defaults : 



BUFFER 

count 

i tern = WORD 



count, item? INDEX= 



Indexab le * none 



o 



Operands Descr i pt i on 

count The length of the buffer in terms of the item 
specified. In addition to the buffer itself? 2 
words of control information are allocated. 
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BUFFER 



i tern 



Buffer type indicator. Code BYTE or BYTES if the 
buffer length is defined in terms of bytes. Code 
WORD or WORDS if the buffer length is defined in 
terms of words. The default for this operand is 
WORD. 






Code TPBSC to generate a buffer for use with the TP 
READ and WRITE statements (Host Communications 
Facility). BUFFER length must be specified in 
bytes if TPBSC is used. 

INDEX= A symbolic name assigned to the buffer index word. 
The parameter cannot be used if the item parameter 
i s coded as TPBSC. 

Ha t_e : Count and INDEX are maintained in terms of the number of 
data items (words or bytes) which the buffer can contain (total 
size) or currently contains* respectively. Index may also be 
regarded as the displacement of the next available location 
relative to the start of the buffer. 
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Standard BUFFER 

label BUFFER 



count,item, I N DEX=name 

J 





1 

name 










index 










count 






l_U_l 


X 




index — 






X 




X 




X 









, 























2 words 



Count in 
bytes or 
words 



^"*"*\ 

V^/' 



TPBSC BUFFER 

label BUFFER 



count, TPBSC 



-► label 



count 



pad 



request 



data 



pad 



size in bytes 1 word 

DLE/STX 1 word 

TP request block 8 words 



ETX 



'count' 
bytes 



1 word 



Figure 5. BUFFER Statement 
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CALL 



CALL 



Program Control 



The CALL instruction executes a user-written or system subrou- 
tine. Up to five parameters may be passed as arguments to the 
subroutine. The first instruction of the subroutine is identi- 
fied by a SUBROUT statement. If the called subroutine is a sep- 
arate object module to be link-edited with your program* then 
you must also code an EXTRN statement for the subroutine name 
in the calling program. 



Syntax 



label 

Required: 
Defaults : 



CALL 

name 
none 



name, pari, . . . , par 5, Pl = , . . . , P6 = 



Indexable: none 






Operands 



name 



Descr i pt i on 
The name of the subroutine to be executed. 



parn 



The parameters associated with the subroutine. Up 
to five, explicit* single precision, integer con- 
stants or the symbolic labels of single-precision 
integer variables which will be passed to the 
subroutine. The actual constant or the value at the 
named location is moved to the corresponding sub- 
routine parameter. Updated values of these parame- 
ters are returned by the subroutine. 



If the parameter name is enclosed in parentheses, 
for example, (pari), the address of the variable is 
passed to the subroutine parameter. Such an 
address may be the label of the first word of any 
type of data item or data array. Within the subrou- 
tine it will be necessary to move the passed address 
of the data item into one of the index registers, #1 
or #2, in order to reference the actual data item 
location in the calling program. If the parameter 
name enclosed in parentheses is a symbol defined by 
an EQU statement, the value of the symbol is passed 



o 
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as the parameter. 

If the parameter to be passed is the value of a sym- 
bol defined by an EQU statement* it can also be pre- 



ceded by a plus (+) sign 
the EQU to be passed to 
preceded by a +» the EQU 
address and the data at 
the parameter . 



This causes the value of 

the subroutine. If not 

is assumed to represent an 

that address is passed as 



Px = 



Example 



Parameter naming operands. See "Use of The 
Parameter Naming Operands ( P x = ) " on page 8 for 
further descriptions. 



CALL PROG, 5 The value 5 is passed to PROG 

CALL SUBROUT, PARM1, ( PARM2 ) , +F I VE 

The parameters passed to SUBROUT 
are the contents of PARM1, the 
address of PARM2 and the value 
of the EQU symbol FIVE 

Figure 6 shows the control flow when using a CALL statement. 



• 














• 




• 
CALL namel 










SUBROUT namel 




^ 




• 




• 




• 






• 

CALL name2 

• 




SUBROUT name2 

• 






















• 






• 






RETURN 






• 
• 
























RETURN 



Figure 6. Execution of Subroutines 
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CALLFORT 



xJ 



Program Control 




For a more complete description of the use 
statement, see the IBM Series/1 FORTRAN IV 
5719-F01, F03, User's Guide, SC34-0134. 

Syntax 



of the CALLFORT 
Licensed Program 



label 

Required? 
Defaults : 
Indexable t 



CALLFORT name, (al , a 2 , . . . ,an),P=:(pl»p2, . .pn) 



name 
none 
none 



jf ' ~V 



J 



Operands 
name 



P = 



Descr i pt i on 

The name of a FORTRAN program which consists of 1 to 
6 alphabetic or numeric characters, the first of 
which must be alphabetic. This name, or entry 
point, must also be coded in an EXTRN statement. 

Each a is an actual argument that is being supplied 
to the subroutine. The argument may be a constant, a 
variable, or the name of a buffer. 

Parameter naming operands (See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for fur- 
ther descriptions). A list of names of up to 8 
characters each can be provided. These names are 
assigned to the parameter list entries for the 
arguments specified in the a operand in the order 
spec i f i ed . 



\J 
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Examp le 

CALLFORT FPGM1 

CALLFORT FSUB1,A 

CALLFORT FSUB2,(A,B) 

CALLFORT FSUB2,(A,B), 

P=(INPUT, OUTPUT) 



No parameters passed 
One parameter passed 
Two parameters passed 



Two parameters 
passed with labels* 
INPUT for parameter A 
OUTPUT for parameter B 



^y 



\J 
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4 ?\ 



Graphics 



The CONCAT statement concatenates two text strings* textl and 
t e x 1 2 , or a text string and a graphic control character. Text 
from text2 is placed at the right of any text which is currently 
in the buffer textl and the resulting text string is placed in 
textl. The character count of textl is then changed to reflect 
the combined counts of the beginning contents of textl plus the 
concatenated characters from t e x 1 2 . Truncation on the right 
occurs if the combined counts exceed the physical length of 
textl. You have the option to reset the character count of 
textl to before beginning to concatenate a new string. 



Syntax 



label 

Requ i red : 
Defaults : 
Indexable: none 



CONCAT textl, text 2, RESET, REPEAT=,P1=,P2= 

textl , text2 
REPEAT=1 



/<" ~\ 



x \.,j 



^ 



Operands Descr i pt i on 

textl Label of left input and resultant text. 

text2 Label of right input text, an explicit 1-character 
constant (left-justified, for example C T A f or 
X f 07'), or a symbol representing one of the follow- 
ing ASCII graphic control characters: GS, BEL, ESC, 
ETB, ENQ, FF, CR, LF, SUB, or US. 



RESET 



An indicator to reset the character count of textl 
before starting the specified concatenation. No 
reset is done if this parameter is omitted. 



REPEAT= The number of times text2 is to be concatenated to 
textl. For example if a C' ' is coded as text2 and 
REPEAT is coded with a 5, then 5 blanks are concat- 
enated to textl. REPEAT must be an absolute numeric 
value. 



\ta^ 
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Px = 



CONCAT 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Note i See "Example 12: Graphics Instructions Programming 
Example" on page 408 for typical use of this instruction. 
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Tape Control 



The CONTROL statement allows you to execute tape functions. You 
can space forward or backward a specified number of records or 
files (a file is the data between the beginning tapemark and 
the ending tapemark). You can also write tape marks, rewind the 
tape, set the tape drive offline, or rewind and set offline. 



CONTROL also is used to close tape data sets. It is a recom- 
mended procedure to close all tape data sets. If you do not 
close data sets, then you must control the tape drive directly 
with the various CONTROL functions. Close to a 5L (standard 
label) output tape will write the following trailer label: TM 
E0F1 TM TM. Close to a NL (no label) tape will write: TM TM . 
Input tapes are automatically rewound as the result of a close 
operation. An attempt to WTM (write tapemark) to an unexpired 
file (expiration date in the header label is not equal or less 
than the current date) is an error condition. 



I Syntax 



I 



label 

Requ i red : 
Defaults : 
Indexable? count 



CONTROL DSx, type, count, END=, ERROR =,WAIT=,P3= 

DSx , type 
count=l,WAIT=YES 






I Operands Descr i pt i on 

DSx x specifies the relative data set number in a list 
of data sets defined by you on the PROGRAM state- 
ment. It must be in the range of 1 to n, where n is 
the number of data sets defined in the list. A DSCB 
name defined by a DSCB statement can be substituted 
for DSx . 



type 



The type field is the CONTROL function to be 
performed. Following is a list of functions avail- 
able: 
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FSF Forward space file (tapemark). Regardless 
of where the tape is currently positioned* 
the tape will search forward the number of 
tape marks indicated in the count operand. 
If the sepcified number of tape marks indi- 
cated by the count field are not on the tape* 
the positioning of the tape is unpredict- 
able. 



BSF Backward space file (tapemark). The tape 
will search backward until the next tape 
mark is read. The default value for count is 
1. If the tape is at load point when when 
this command is issued* the load point 
return code is returned. 



FSR Forward space record. The tape will space 
forward past the number of records specified 
in the count field. The default value for 
count i s 1 . 






BSR Backward space record. The tape will space 
backward past the number of records speci- 
fied in the count field. The default value 
for count is 1. If the tape is at load point 
when this command is issued, the load point 
return code is returned. 



WTM Write tapemark. This function will write a 
tape mark on tape. If the count field is 
coded* successive tape marks will be written 
according to the count value. 



REW Rewind tape to load point (beginning of 
tape ) . 



ROFF Rewind tape and set the tape drive to 
offline. 



OFF Set tape drive to offline. 

CLSRU Close tape data set and allow it to be reused 
(reopened by another program or task without 
an intervening $VARYON command). The tape is 
repositioned to the HDR1 label of the data 
set for labeled tape. The tape is posi- 
tioned to the beginning of the first data 
record for no label tapes. You can use 
SVARYON to change the file number being 
processed or you can use a CONTROL function. 
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CLSOFF Close tape data set, rewind tape, and 
the tape drive to offline. 



set 



count 



The count operand specifies the number of files or 
records to be skipped or the number of tapemarks to 
be written. This can be a constant or the label of a 
count value . 



END = 



Use this keyword to specify the first instruction 
of the routine to be invoked if an end-of-data-set 
condition is detected (return code=10). If this 
operand is not specified, an EOD will be treated as 
an error. This operand must not be used if WAIT = NO 
i s coded . 



If END is not coded, a tapemark will also be treated 
as an error. The physical position of the tape, 
under this condition, is the read/write head posi- 
tion is immediately following the tapemark. See 
CONTROL close functions for repositioning of the 
data set. Remember also that the count field might 
not be decremented to zero. 



ERRORS Use this keyword to specify the first instruction 
of the routine to be invoked if an error condition 
occurs during the execution of this operation. If 
this operand is not specified, control will be 
returned to the next instruction after the READ and 
you must test the return code in the task code word 
for errors. This operand must not be used if 
NAIT=N0 is coded. 



%,J 



WAIT = 



If this operand is allowed to default or if it is 
coded as WAIT=YES, the current task will be sus- 
pended until the operation is complete. If the 
function selected is CLSRU or CLSOFF then NAIT=YES 
is the only valid option for this operand, any other 
option will be ignored. 



For functions other than close, if the operand is 
coded as WAIT=NO, control will be returned after 
the operation is initiated and a subsequent WAIT 
DSx must be issued in order to determine when the 
operation is complete. 



END and ERROR cannot be coded if WAIT=NO is coded. 
You must subsequently test the return code in the 
Event Control Block (ECB) named DSx or in the task 
code word (referred to by 'taskname'). Two codes 
are of special significance. A -1 indicates a suc- 
cessful end of operation. A +10 indicates an 'End 
of Data Set' and may be of logical significan c e t o 
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Px = 



CONTROL 



the program rather than being an error. For 
programming purposes, any other return codes should 
be treated as errors. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



I Tape Return Code s 






Code Description 



-1 


Succ 


1 


Exce 


2 


Er ro 


4 


E r r o 


5 


Unre 


6 


Erro 


10 


Tape 


20 


Dev i 


21 


Wron 


22 


Not 


23 


Fi le 


24 


EOT 


25 


Load 


26 


Unco 


27 


Atte 


28 


Inva 


29 


Data 


30 


Inco 


31 


Inco 


32 


Bloc 


33 


E0V1 


76 


DSN 



essful completion 
ption but no status 
r reading STATUS 
r issuing STATUS READ 
coverable I/O error 
r issuing I/O command 

mark (EOD) 
ce in use or offline 
g length record 
ready 

protect 

point 
rrected I/O error 
mpt NRITE to unexpired data set 
lid b 1 k s i z e 

set not open 
r rect device type 

rrect request type on close request 
k count error during close 

label encountered during close 
not found 



O 



Chapter 3. Instruction and Statement Descriptions 



77 



CONTROL 

I Examp le 

I CONTROL DSl,CLSOFF 

This statement closes the tape data set specified by D S 1 » 
rewinds the tape* and sets the tape drive offline. 

CONTROL DS2,FSR,16 

This statement causes the tape data set specified by DS2 
to be forward spaced 16 data records. 






78 SC34-0314 



o 



CONVTB 
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Data Fortnatt i ng 



The CONVTB instruction converts a binary value to an EBCDIC 
string. Both integer and floating-point formats are provided. 
In addition* both the normal floating-point notation and E 
notation are provided. 



Syntax 



label CONVTB opnd 1 , opnd2 , PREC = , FORMAT= , Pl= , P2 = 

Required? opndl»opnd2 

Defaults? PREC = S , FORMAT= ( 6 , , I) 

Indexable: opndl,opnd2 






Operands Descr i pt i on 

opndl The name of an area in storage where the converted 
results will be placed. The address must be the 
leftmost byte of the area. The converted results 
will be in EBCDIC. 



opnd2 



The name of the variable to be converted to EBCDIC. 
You must know the format of the data. The following 
opnd2 types are supported: 



PREC = 



Single -precision integer -- 1 word 

Double-precision integer -- 2 words 

Single-precision floating-point — 2 words 

Extended-precision floating-point -- 4 words 



The PREC keyword is used to specify 
opnd2. The allowable values are: 



the form of 



S - Single-precision integer 

D - Double-precision integer 

F - Single-precision floating-point 

L - Extended-precision floating-point 



FORMAT= ( W, D» T) The format of the value converted. 
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Px = 



W = Field width in bytes of EBCDIC field 

D = Number of digits to the right of decimal point 
Valid for floating-point variables only. For 
integer values* code a here. 

T = Type of EBCDIC Data as follows: 

I- Integer XXXX 

F- Real number XXXX. XXX 

E- Real number of exponent (E) notation 

This notation uses the form: 

SX.XXESYY 

where : 

S = Optional sign character (+ or -), default = (+) 

X = Characteristic 1 to 7 numeric digits 

. = Decimal point anyplace within characteristic 

E = Designation of E notation 

YY = Mantissa, range -85 to +75. The base is 10. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for fur- 
ther descriptions. 






Following are the return codes returned at taskname (See 
PROGRAM/TASK statements). 



Return Codes 



Code 



Descr i p t i on 



1 Successful completion 
3 Conversion error 



Operation : The Convert Binary to EBCDIC instruction accepts 
both integer and floating-point variables and converts them 
into an EBCDIC character string. The format of the EBCDIC 
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character string is defined by the use of the operands PREC and 
FORMAT. The following examples should help define the capabil- 
ities of this instruction. 

Integer Example 

CONVTB TEXT A, VALUE, PRECIS, FORMAT =(8, 0,1) 



VALUE DATA F f 12345» 
TEXTA TEXT LENGTH=8 

The value 12345 in the variable VALUE will be converted to 
EBCDIC at TEXTA in the following format: 

bbbl2345 

If conversion of double-precision integers is required, then 
PREC = D i s coded . 



Floating-Point Example 





CONVTB 




CONVTB 


VALUE 


DATA 


VALUE1 


DATA 


TEXTB 


TEXT 


TEXT1 


TEXT 



TEXTB,VALUE,PREC=F,F0RMAT=(15,4,F) 
TEXT1,VALUE1,PREC=L,FORMAT=(2 0,14,E) 

E'62421.16' 
L'4926139.2916 f 
LENGTH=15 
LENGTH=20 



The following EBCDIC character strings would result (b repres- 
ents blanks ) s 

TEXTB=bbbbb62421.1600 

TEXTl=b.49261392916 000Eb0 7 

Remember that the conversion routines assume that the type of 
variable to be converted is as specified by the PREC operand. 
If the internal format of the variable is something other than 
specified by the PREC operand, incorrect results will occur. 
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Data Formatting 



The CONVTD instruction converts an EBCDIC character string to a 
binary arithmetic value. Both integer and floating-point var- 
iables are allowed. 

Syntax 



label 

Requ i red : 
Defaults : 



CONVTD 



opndl,opnd2,PREC=,FORMAT=,Pl=,P2= 



opndl * opnd2 
PREC=S,FORMAT=(6,0,I) 



Indexable: opndl>opnd2 



Operands Descr i pt i on 

opndl The name of a variable where the result of the 

conversion is to be stored. You must insure that 

enough space is reserved to accommodate the 
results . 



Single-precision integer — 1 Word 

Double-precision integer — 2 Words 

Single-precision floating-point — 2 Words 
Extended-precision floating-point — 4 Words 



opnd2 



The address of the first character of 
character string. 



the EBCDIC 



Allowable ranges for data values are: 



Single-precision integer 
Double-precision integer 

Single-precision floating-point 



-32768 to 32767 

-2147483648 to 

2147483647 

7 dec i mal d i g i ts* 



Extended-precision floating-point 16 decimal digits* 



^Exponent range 
from 10 to the 
-85th through 10 
to the 75th. 



1 s 
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PREC = The form of opndl. 

S Indicates single-precision integer 

D Indicates double-precision integer 

F Indicates single-precision floating-point 

L Indicates extended-precision floating-point 

FORMATsCHjDf T) The format of the value converted. 

N = Field width in bytes of EDCDIC field 

D = Number of implied decimal positions if no 
decimal point is in input (valid for floating 
point only). For integer values code a 0. 

T = Type of EBCDIC data as follows: 

I Integer xxxxx 

F Real number xxx.xx 



Px* 



Real number in E notation (see CONVTB for 
a description of E notation) 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for fur- 
ther descriptions. 



Following are the return codes returned at taskname (See 
PROGRAM/TASK statements). 



Return Codes 




-1 Successful completion 

1 No data in field 

2 F i eld omi tted 

3 Conversion error 



Qperat i on : The Convert EBCDIC to Binary instruction accepts a 
variety of input formats. The following examples will help to 
define the various types accepted. 
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Integer Example 

CONVTD VALUE,TEXT,PREC=S,FORMAT=(8,0,I) 

VALUE DATA F f 0' 

TEXT TEXT » 12345 ', LENGTH=8 

The value in EBCDIC, 12345, will be converted to a single pre- 
cision binary value and stored at VALUE as X , 3039*. Double- 
precision integers can also be converted by using the PREC=D 
parameter and using a 2 word variable at VALUE. 






Floating-Point Example 

CONVTD VALUE,TEXT1,PREC=F,FORMAT=(10,2,F) 

CONVTD VALUE1,TEXT2,PREC=L,FORMAT=(15,0,E) 

VALUE DATA 2F , f 

VALUE1 DATA 4F , t 

TEXT1 TEXT f 1 00 . 5 » , LENGTH = 1 

TEXT2 TEXT ' . 1005E3 f , LENGTH = 1 5 



Both values shown in the TEXT statements result in the same 
binary data values being stored in the two DATA statements. 
The only difference is that at VALUE1 an extended-precision 
value is stored. 

The EBCDIC field should contain only those characters that are 
valid for the operation being performed. For example: 

• Integers 

Leading blanks 
Sign character + or - 
Digits through 9 
Trai 1 i ng blanks 

• Floating-point 

Lead i ng blanks 

Sign character + or - 

Digits through 9 

Dec i mal-po i nt 

The character E, if E notation, followed by a sign 

character, + or -, or the' digits through 9. 



'\_ 



y 



If any other character is found during 
following action will be taken: 



the conversion, the 



o 
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For delimiters » or / 

End of field will be generated. If no data was found, a 
"Field Omitted" (2) will be returned. 

For all blanks 

"No Data in Field" (1) will be returned. 

For any other character (for example, an alphabetic char- 
acter ) . 

,r End of Field" (1) will be returned. 



J 



fX 
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Program Module Sectioning 



The COPY instruction copies a predefined source program module 
into your program. The module to be copied must exist in a disk 
or diskette data set. The specified source statements are 
copied immediately following the COPY statement. The program 
module to be copied must not contain a COPY statement. 



Syntax 



blank COPY 

Required: symbol 

Defaults: none 

Indexable: none 



symbol 



Operand s Descr i pt i on 

symbol The symbolic name of the source module on disk or 
diskette that is to be copied into your program. 




**COPYCOD 

n i t i ons i n $EDXL . 

The Series/1 macro assembler provides a full implementa- 
tion of the COPY statement as part of the Event Driven 
Executive Macro Library (5719-LM5 or 5719-LM6). See the 
IBM Series/1 Event Driven Executive Macro Assembler 
(5719-ASA) for details on using this COPY statement. 



, /f " ^\ 



The System/370 macro assembler also provides a full imple- 
mentation of the COPY statement as part of the IBM 
System/370 Program Preparation Facility FDP (5798-NNQ). 
See the IBM Svstem/370 Program Preparation Facility * 
SB30-1072 for details on using this COPY statement. 



o 
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CSECT 



Program Module Sectioning 



The CSECT statement names a program module to 
location within the program output from SLINK, 



i dent i f y its 



The CSECT instruction is optional and if it is omitted the pro- 
gram module has a blank name. 

Program modules* assembled by $EDXASM» can have multiple CSECT 
statements. However* all CSECTS, after the first one, will 
generate ENTRY instead of CSECT definitions. 

Program modules assembled by means of the Series/1 Macro Assem- 
bler or host assembler are also permitted to have multiple 
CSECT instructions in a single assembly. These assemblers will 
generate a separate program module for each uniquely named 
CSECT. 

Syntax 



label 

Requ i red : 
Defaults : 



CSECT 

label 
none 



Indexable* none 



Operands 



Descr i pt i on 



none 



label The label must be the name of the program 
module for the first CSECT. For subsequent 
CSECTs the label must be an entry name. 
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Data Def i n i t i on 



The DATA/DC statement defines one or more constants. Constants 
can have various forms of data representation such as binary, 
decimal, hexadecimal, character, floating-point, or address. 
Character strings or multiple constants may be defined in one 
DATA statement. The maximum number of bytes allowed in the 
value operand depends upon the program preparation facility 
used and can be determined by referencing ths appropriate doc- 
umentation. When using $EDXASM, up to 10 separate data spec- 
ifications may be made on a DATA statement by separating the 
individual specifications with commas. When using SS1ASM, one 
data specification is allowed with each DATA statement. 



Syntax 



label 
label 



DATA dup type value 
DC dup type value 



Required: type, value 
Defaults : dup=l 
Indexab le : none 



v.,y 



Operands Descr i pt i on 

dup Duplication factor for the type constant defined. 

type Constant type or form of data representation. 

value The value to be a ss igned to the constant. Also 
determines field length of some types of constants. 
The value is enclosed in quotes for all constant 
types except A, in which the value is enclosed in 
parentheses . 
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Valid codes for type are: 



Code Type Constant Storage Format 



DATA/DC 



8-bit code for each character 
4-bit code for each digit 
1-bit for each digit (not allowed 
with $EDXASM) 

Signedi fixed-point binary? 2 bytes 
Signed* fixed-point binary; 1 byte 
Signed, fixed-point binary; 4 bytes 
Floating-point Floating-point binary; 4 bytes 
Floating-point Floating-point binary; 8 bytes 
Address Value of address or expression; 

2 bytes 



EBCDIC 
Hexadec i mal 
Bi nary 

F i xed-po i nt 
Fixed-point 
F i xed-po i nt 



Allowable ranges for data values are: 



Single-precision integer 
Double-precision integer 

Single-precision floating-point 
Extended-precision floating-point 



-32768 to 32767 
-2147483648 to 

2147483647 
7 dec i mal digits * 
16 decimal digits * 



J 



^Exponent range is 
from 10 to the -85th 
to 10 to the 75th 



Floating point constants can be expressed as real numbers with 
decimal points, for example 1.234, or can be expressed in expo- 
nent (E) notation. E notation uses the form: 

SX.XXESYY 

where : 

S = Optional sign character (+ or -); default = (+) 

X = Characteristic 1 to 7 numeric digits 

. = Decimal point anyplace within characteristic 

E = Designation of E notation 

YY = Mantissa, range -85 to +75. The base is 10. 

(for example, 3.1415E-2 = .031415) 

Character constant s_ ( C) can include an explicit length spec- 
ification for the field by specifying the type as CLn where n is 
the length of the field. If the value operand is smaller than 
the field length, the balance of the field is filled with 
blanks . 
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_E x ample 

BINCON DATA B ' 001 100001 1 1 1 ' 

A DATA F'l f 

BUF DC 128F*0 f 

CHAR DATA C'XYZ' 

BLANK DC 80C f 

C8 DC CL8 f $» 

HEXV DATA X'OOFl' 

ADDR DATA A(BUF) 

DBL DATA D'10000O ? 






Fl 
F2 

L2 



L3 



DATA E , 1.234» 
DATA 4E , 0.123 f 

DATA 4L , 12345678.9 f 



DATA L» .123456E-40' 



MANY DATA F'l'.D'Z' 



Hexadecimal 30F in 
binary 

Decimal constant 1 

128 words of 

EBCDIC String 'XYZ* 

80 EBCDIC blanks 

$ followed by 7 blanks 

Decimal 241 in 
hexadec i mal 

Address of 'BUT 1 

2-word decimal constant 
100,000 

Floating-point value 1.234 

Four Floating-point values of 
0.123 (4 bytes each value) 

Four Extended-precision 
Floating-point values of 
12345678.9 (8 bytes each 
value 

Extended-precision float- 
ing point in exponent form 

A word of 1 and a double 
word of 2 



y 'x 



.,v 



^ku^J^ 



90 SC34-0314 



o 



DCB 



DCB 



EXIO Control 



The DCB statement creates a standard device control block (DCB) 
for use with EXIO. For additional information on DCBs refer to 
the description manual for the processor in use. 



Syntax 



label 



Requ i red : 
Defaults : 
Indexable : 



DCB PCI=,I0TYPE=,XD=,SE=,DEVM0D=,DVPARM1=, 
DVPARM2=,DVPARM3=,DVPARM4=,CHAINAD=, 
COUNT=,DATADDR= 

label 

PCI=NO,IOTYPE=OUTPUT,XD=NO,SE=NO 

none 



Operands Descr i ot i on 

PCI* An interrupt indicator. Code PCI^YES to cause the 
device to present an interrupt at the completion of 
the DCB fetch prior to data transfer. 

IOTYPE= An indicator showing the type of operation. Code 
IOTYPE=INPUT for operations involving transfer of 
data from device to processor or for bidirectional 
transfers under one DCB operation. 

Code IOTYPE=OUTPUT for operations involving trans- 
fer of data from processor to device or for control 
operations involving no data transfer. 



XD = 



SE = 



A DCB type indicator. Code XD=YES to indicate the 
DCB is a non-standard type. 

An exception reporting indicator. Code SE=YES to 
indicate the device is allowed to suppress the 
reporting of certain exception conditions. 






DEVMOD- The byte that describes functions unique to 
particular device. Code two hexadecimal digits. 
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DCB 



DVPARM1* The value of device-dependent parameter word 1. 
Code as four hexadecimal digits or the label of an 
EQU preceded by a +. 

DVPARM2= The value of device-dependent parameter word 2. 
Code as four hexadecimal digits or the label of an 
EQU preceded by a +. 

DVPARM3= The value of device-dependent parameter word 3. 
Code as four hexadecimal digits or the label of an 
EQU preceded by a +. 

DVPARM4= The value of device-dependent parameter word 4. 
Code as four hexadecimal digits or> if SE=YES> the 
label of the first byte to which residual status 
data is to be transferred. The length of the resi- 
dual status area is device dependent. 



CHAINAD* The label of the next 
DCBs are des i red . 



DCB in the chain if chained 



COUNT= The number of data bytes to be transferred. Code a 
decimal number between and 32767 inclusive or the 
label of an EQU preceded by a +. 

DATADDR* The label of the first byte of data. 

For information on the contents of DVPARM1-DVPARM4 and DEVMOD 
refer to the description manual of the device to be used. 

The example below shows two chained DCBs. WR1DCB is for some 
type of output operation in which the 120 byte field MSG1 will 
be transferred to the device. Any status information resulting 
from the operation will be placed in RESTAT by the device. 
WR2DCB is for some type of device control operation because it 
too defaulted to IOTYPE^OUTPUT but no data transfer 
(DATADDR=,COUNT=) was specified. RESTAT is used for status of 
this operation as well. 
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Example i 



DCB 



WR1DCB DCB 



SE=YES,DVPARM1=0 30 0,DVPARM2=3048, 

DVPARM3=1100,DVPARM4=RESTAT, 

CHAINAD=WR2DCB,COUNT=120,DATADDR=MSG1 



WR2DCB DCB 



SE=YES,DVPARM1=20AO,DEVMODE=6F, 
DVPARM4=RESTAT 



MSG1 DATA 120X f 00 T 
RESTAT DATA 2F f f 
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DEFINEQ 



DEFINEQ 



o 



Queue Processing 



The DEFINEQ statement defines the queue descriptor (QD) and the 
set of queue elements (QEs) used by FIRSTQ, LASTQ, and NEXTQ. 
DEFINEQ can optionally define a pool of data storage areas or 
data buffers. For additional information refer to the dis- 
cussion of queue processing in Chapter 2 of this manual. 



Syntax 



label 



DEFINEQ COUNT=,SIZE= 



Required: label, COUNT* 
Defaults: none 
Indexable: none 



Operands DesCr i pt i on 

COUNT= The number of 3-word queue elements to be 
generated. An additional 3-word QD will be gener- 
ated and the first word of the QD will be assigned 
the name specified in the label on the DEFINEQ 
statement * 






SIZE = 



The size* in bytes, of each buffer (data area) to be 
included in the buffer pool in the initial queue. 
As many such buffers will be generated as specified 
in the COUNT operand. Each such buffer is initial- 
ized to binary zeros. Each QE in the queue will 
contain the address of an associated buffer in the 
buffer pool . 



If the SIZE operand is not specified, all QEs will 
be generated to be in the free chain and the queue 
will be defined as empty. If SIZE is specified, all 
QEs will be included in the active chain and the 
queue will be defined as full. 

Example : See the example following the NEXTQ instruction* 
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DEQ 



DEQ 



Task Control 



The DEQ instruction releases exclusive control of a system or 
user resource other than a terminal. You must always dequeue 
any resource previously enqueued (ENQ). Failure to dequeue the 
resource prevents its further use. For additional information 
refer to the description of ENQ. 

DEQ normally assumes that the QCB for the resource is defined 
in the same partition as the current program. However* it is 
possible to dequeue from a resource in another partition. For 
additional information. refer to the topic on 
"Cross-Partition Services" in the System Gu i de . 

When using the $S1ASM macro assembler or the host assembler* 
the DEQ instruction causes the QCB defining the named resource 
to be generated at the end of the program. When using $EDXASM, 
no QCB will be generated; the QCB must be explicity created 
with the QCB instruction. 






Syntax 



label 

Requ i red : 
Defaults : 
Indexab le : 



DEQ 



resource, code, P1=*P2= 



resource 

code=-l 

resource 



Operands 
resource 



Descr i pt i on 

The symbolic name of the resource being dequeued. 
This must be the same name used for the ENQ 
instruction and is usually the label of a QCB state- 
ment . 



code 



A code word to be inserted into the queue control 
block (QCB) which defines the resource. The code 
word may be examined by referencing the symbolic 
name of the resource. This code may be used as a 
flag to indicate a status or a condition. A code of 
is interpreted by the ENQ instruction to mean that 
the resource is unavailable for use; all non-zero 
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DEQ 



codes indicate the resource is available for other 
uses . 



o 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px 51 )" on page 8 for 
further descriptions. 
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DEQT 



DEQT 



Termi na 1 I/O 



The DEQT statement releases the terminal which was previously 
acquired with an ENQT instruction. A task may issue successive 
ENQTs directed to the same terminal before issuing a DEQT. 
Until DEQT is executed* however* ENQTs directed to other termi- 
nals are ignored. If a terminal configuration was established 
by ENQT» then DEQT restores the configuration to that defined 
by the TERMINAL system configuration statement. DEQT also 
forces partially full buffers to be written to the terminal and 
completes all pending I/O. 



Syntax 



^*\ 



label 

Requ i red : 
Defaults : 



DEQT 

none 
none 



Indexable: none 



Operands Descr i pt i on 
none none 

Example of ENQT and DEQT 
ENQT $SYSPRTR 



DEQT 

ENQT TERM1,BUSY=ALTERN 



DEQT 



ALTERN ENQT SSYSLOG 



TERMI IOCB TTY1,PAGSIZE=24 
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DETACH 






Task Control 



The DETACH instruction removes a task from operational status. 
A task may only detach itself. If a task is reattached* exe- 
cution proceeds with the next instruction after the DETACH in 
the reattached task. 



Syntax 



label 

Requ i red : 
Defaults : 



DETACH 

none 
code = -1 



Indexable? none 



code t Pl = 



Operands Descr i pt i on 

code The posting code to be inserted in the 
word of the task being detached. It is 
word of the task control block. 



v^ 



task code 
the first 



Pl = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) w on page 8 for 
further descriptions. 
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DIVIDE 



Data Manipulation 

The DIVIDE instruction provides for signed division of opndl by 
p n d 2 . The remainder is stored in the task code word and will 
be lost after the next DIVIDE, I/O operation* or other oper- 
ation that updates the task code word. Only if the divisor 
(opnd2) is double -precision will the remainder be double- 
precision. Divide overflow is indicated by the special remain- 
der X'SOOO'. X T 8000 f is also the result of a divide by zer*o 
operat i on . 

Note : An overflow condition is not indicated by EDX. 

Syntax 



label 



DIVIDE opndl,opnd2,count,RESULT=,PREC=, 
P1=,P2=,P3= 



Required: opndl»opnd2 

Defaults: count=l,RESULT=opndl,PREC=S 

Indexable: opndl ,opnd2 > RESULT 



Operands Descr i pt i on 

opndl The name of the variable to which the operation 
applies; it cannot be a constant. This is the divi- 
dend . 



opnd2 



The value by which the first operand is modified, 
either the name of a variable or an explicit con- 
stant. This is the divisor. 



count 



The number of consecutive variables upon which the 
operation is to be performed. The maximum value is 
32767. 






RESULT= The name of a variable or vector in which the result 
is to be placed. In this case the variable speci- 1 - 
fied by the first operand is not modified. This 
operand is optional. 
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DIVIDE 



PREC=XYZ 



Px = 



The precision value X applies to opndl, Y to opnd2, 
and Z to the result. The value may be either S 
(single -precision) or D (double -precision). The 
Three operand specification may be abbreviated 
according to the following rules: 

• If no precision is specified, all operands are 
single-precision. 

• If a single letter (S or D) is specified, it 
applies to the first operand and result, with 
the second operand defaulted to single- 
prec i s i on . 

• If two letters are specified, the first applies 
to the first operand and result, and the second 
to the second operand. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 






Mixed-precision Operations : Allowable precision combinations 
for divide operations are listed in the following table: 



opndl 


opnd2 


Result 


Abbrevi at 


ion 


Remarks 


S 


S 


S 


S 




default 


S 


S 


D 


SSD 




- 


D 


S 


D 


D 




- 


D 


D 


D 


DD 




- 


D 


S 


S 


DSS 




— 



f \ 

V J 



Example 

DIVIDE VAL,(TAB,#1) 



second operand indexed 



w 
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DO 



Program Sequencing 

The DO instruction initializes a loop. A loop is a set of one 
or more instructions that are executed repetitively until the 
condition specified by the DO is satisfied. The DO loop must 
have an associated ENDDO instruction which defines the end of 
the loop. There are three forms of the DO instruction. DO UNTIL 
and DO WHILE provide a means of looping until or while a rela- 
tional statement is true. The third form of the DO instruction 
causes a loop to be executed a specific number of times. In all 
of these forms a branch out of the loop is allowed. 

Note t Because coding practice is to code DO and ENDDO together* 
the description of ENDDO is duplicated immediately following 
the DO description for convenience. 

Examples of DO and ENDDO are shown at the end of this section. 

Syntax 



label 
label 
label 



DO count, TIMES, INDEX*, PI = 
DO UNTIL, statement 
DO WHILE, statement 



Required! count or one relational statement 

with UNTIL or WHILE 
Defaults: none 
Indexable: count or datal and data2 in each statement 



^^i/' 



Operands Description 

count The number of times the loop is to be executed. It 
is an explicit constant, or the label of a count. 
The maximum value is 32767. 

Note : If count-0, then the loop will be executed 
one t i me . 
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00 



TIMES 



INDEX 



An optional operand which only serves to 
the instruction for program readability. 



comment 



The label of a variable* defined by the user* which 
will be reset to before starting the DO loop and 
will be incremented by 1 immediately prior to each 
execution of the instruction following the DO 
instruction. Therefore* the first time the loop is 
executed the index will have a value of 1. 






UNTIL 



This parameter establishes a trailing decision 
loop* which is executed until the exit condition is 
true. Even if the condition is true initially* the 
loop will be executed one time. 



WHILE 



This parameter establishes a leading -decision 
loop* which is executed as long as the exit condi- 
tion is true. Note that if the condition is false 
initially* the loop will not be executed. 



statement A relational statement or statement string 
indicating the condition for the loop exit. This 
form is valid only following UNTIL or WHILE. 



Note : Additional details such as coding the 
operands datal and data2 in a relational statement 
are described following "Program Sequencing 
Instructions" on page 34. For examples of relation- 
al statements see "Examples of Relational State- 
ments" following the descriptions of "IF" on page 
177. 



w 



Pl = 



Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px=)" on page 8 for further 
descriptions. 



^kmmJ^ 



102 SC34-0314 



o 



ENDDO 



DO 



Program Sequencing 



The ENDDO instruction defines the end of a DO loop. It must be 
preceded by a DO instruction. Up to twenty nested loops are 
allowed, and each must be defined by a DO and an ENDDO. 

Syntax 



label 

Requ i red : 
Defaults: 



ENDDO 

none 
none 



Indexab le : none 



*"\ 



Operands Description 
none none 



Chapter 3. Instruction and Statement Descriptions 



103 



Example of DO and ENDDO 

1. Simple DO (^) 

\...y 

DO 100 

(execute 100 times) 
ENDDO 

2. Simple DO with TIMES coded 

DO N, TIMES 

(execute "N* times) 
ENDDO 

3. DO UNTIL 

DO UNTIL, (A, EQ, 1000, FLOAT) 

(execute until A EQ 1000) 
ENDDO 

4. DO WHILE 

DO WHILE, (B,NE,C) 

(execute uhile B NE C) /»" \ 

ENDDO \_y 

5. Nested DO loops 

DO UNTIL, (A,EQ,B,DFLOAT),OR, (#1,EQ,1000) 

DO 10, TIMES 

ENDDO 
ENDDO 

6. Nested DO loops and IF statements 

DO WHILE, (A,GT,B,DWORD) 
IF (CHAR,EQ,C'A' ,BYTE) 
DO 40, TIMES 

ENDDO 
ELSE 

ENDIF 
ENDDO 
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DSCB 



Disk/Tape I/O 



The DSCB statement generates a data set control block (DSCB), 
A DSCB provides the information required to access a data set 
within a particular volume. One DSCB is generated in the pro- 
gram header for each data set specified in the DS parameter of 
the PROGRAM statement. The name of each DSCB so generated is 
D S 1 , DS2» ...» D S 9 , corresponding to the order of specification 
of the data set. The name DSx is assigned to the first word of 
the DSCB* the event control block. Fields within these DSCB 
may be referenced symbolically with the expression: 

DSx+name 



where name 
DSCBEQU. 



i s 



label defined in the DSCB equate table» 



J 



When overlay programs have been specified in the PROGRAM state- 
ment of an application program* a DSCB is created in the pro- 
gram header for each such overlay. Each of these can be 
referred to by the name PGMx where x is a number from 1 to 9 cor- 
responding to the order of specification of the program name. 
Fields within these DSCBs may be referenced as PGMx+name where 
name is a label defined in the DSCB equate table, DSCBEQU. 



DSCBs are automatically generated for data sets referenced by 
the DS and PGMS operands of PROGRAM. 

It is also possible to generate and use additional DSCBs within 
your program by coding a DSCB statement. These DSCBs are named 
with the DS# operand. 

Syntax 



DSCB 



label 

Required? 
Defaults : 
Indexable: none 



DS#=,DSNAME=,VOLSER=,DSLEN= 



DS#=,DSNAME= 
VOLSER=null, 



DSLEN=0 
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DSCB 



Operands 



Descr i pt i on 



4 X 



DS# = 



The alphameric name which is used to refer to a DSCB 
in disk or tape I/O instructions. This name will be 
assigned to the first word (ECB) of the generated 
DSCB. Specify 1 to 8 characters. 



DSNAME= The data set name field within the DSCB. Specify 1 
to 8 characters. 

VOLSER= The volume label to be assigned to the volume label 
field of the DSCB. Specify 1 to 6 characters. A null 
entry (blanks) will be generated if VOLSER is not 
specified. Note* however, that if the DSCB is for a 
tape data set, VOLSER must be specified prior to 
DSOPEN. Also for tape data sets, if there is no vol- 
ume label, then the 1-6 digit tape drive ID must be 
supplied. The tape drive ID is assigned with the 
TAPE configuration statement during system gener- 
ation. 



DSLEN= The size of the referenced direct access space. If 
no number is specified, this value will be set to 0. 
This parameter is not used if the DSOPEN routine 
will be used to open the DSCB. 






When a data set is defined using the DSCB statement it must be 
opened before attempting disk or tape I/O operations such as 
READ or WRITE. The routines DSOPEN and SDISKUT3 are provided 
for this purpose. DSOPEN must be copied into your program with 
the COPY instruction and then invoked with the CALL 
instruction. The SDISKUT3 is invoked with the LOAD 
instruction. For more information on DSOPEN refer to the 
System Gu i de "Advanced Topics" section. 

Examp le 

DSCB DS#=INDATA,DSNAME=MASTER, 
VOLSER=EDX003 
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ECB 



o 



Task Control 



The ECB statement generates a 3-word event control block (ECB). 

Normally this statement will not be needed for writing applica- 
tion programs if the program is to be assembled by the host or 
Series/1 macro assemblers. In this case Event Control Blocks 
are automatically generated for you as a consequence of your 
naming an event in a POST instruction. However* it may be used 
for special purposes such as controlling their location within 
a program. You must explicitly code necessary ECBs in programs 
to be assembled by SEDXASM* except for those created by speci- 
fying EVENT in a PROGRAM or TASK statement. 

A maximum of 2 5 ECB statements may be coded in a program. If 
more than 2 5 ECBs are required, they must be coded using the 
DATA statement. (See the example following the syntax 
descr i pt i on . ) 






Syntax 



ECB 



label 

Requ i red ' 
Defaults : 
Indexable: none 



code 



label 
code = -1 



Operands Descr i pt i on 

code Initial value of the code field (word 1). 
word is non-zero when a WAIT is issued; 
occurs unless the WAIT has RESET coded. 



If this 
no wa i t 



Chapter 3. Instruction and Statement Descriptions 



107 



ECB 



Examp le 
ECB1 



ECB 



is equivalent to coding, 



ECB1 



DATA 
DATA 



F f -1' 



Note that ECB is not an executable statement and should 
not be placed between executable instructions. 



\^_ _p/ 
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EJECT 



EJECT 



Listing Control 



The EJECT statement causes the next line of the listing to 
appear at the top of a new page. This statement provides a con- 
venient way to separate sections of a program. It does not 
change the page title if one is in force. 



Syntax 



blank 



EJECT 



Operands Descr i pt i on 
none none 
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ELSE 



ELSE 



o 



Program Sequencini 



The ELSE statement defines the start of the false path code 
associated with the preceding IF instruction. The end of the 
false path code is the next ENDIF instruction. 

Note i Since IF> ELSE* and ENDIF are usually coded together f 
this description is repeated for your convenience following 
the IF instruction. 

Syntax 



label 

Requ i red : 
Defaults : 



ELSE 

none 
none 



Indexable? none 






Operands 



Descr i pt i on 



none 



none 



Examp le * The examples for IF, ELSE* and ENDIF are shown follow 
ing the IF instruction. 
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END 



END 



Task Control 



The END statement must be the last statement coded in your pro- 
gram . 



Syntax 



blank 

Requ i red : 
Defaults : 



END 

none 
none 



Indexab le J none 



Operands Descr i pt i on 
none none 
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ENDATTN 



ENDATTN 



J 



Task Control 



The ENDATTN statement ends an attention interrupt handling 
routine* as described under ATTNLIST, and is the last statement 
of that rout i ne . 

An attention interrupt handler should be a short routine used 
to provide an operator with terminal keyboard initiation or 
control of application routines. 

Syntax 



labe 1 

Requ i red : 
Defaults : 



ENDATTN 

none 
none 



Indexable * none 






Operands 



Descr i pt i on 



none 



none 



Example : See ATTNLIST instruction and also "Example 7: A Two 
Task Program With ATTNLIST" on page 395. 



112 SC34-0314 



o 



ENDDO 



ENDDO 



Program Sequencing 



The ENDDO instruction defines the end of a DO loop. It must be 
preceded by a DO instruction. Twenty nested loops are allowed* 
and each must be defined by a DO and an ENDDO. Examples of DO 
loops are shown following the description of "DO" on page 101. 

Note i Because the practice is to code DO and ENDDO together* 
this instruction is repeated following the DO instruction. 



Syntax 



label 

Requ i red ' 
Defaults? 



ENDDO 

none 
none 



Indexable: none 



Operands Descr i pt i on 

none none 

Example ♦ See the examples following the DO instruction. 
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ENDIF 



ENDIF 



o 



Program Sequencing 



The ENDIF instruction indicates the end of an IF-ELSE struc- 
ture. If ELSE is coded, ENDIF indicates the end of the false 
code associated with the preceding IF instruction. If ELSE was 
t coded, ENDIF indicates the end of the true code associated 



with the preceding IF instruction. 

Note : Since IF, ELSE, and ENDIF are usually coded 
this description is repeated for your convenience 
the IF instruction. 



together , 
following 



Syntax 



label 

Requ i red ' 
Defaults : 



ENDIF 

none 
none 



Indexable * none 



/f 'X 



\. 



Operands 
none 



Descr i pt i on 
none 



Examp le : Examples of IF, ELSE, and ENDIF are shown following 
the IF instruction. 
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ENDPROG 



ENDPROG 



Task Control 



The ENDPROG statement must be the next to the last statement in 
a user program. The last statement must be END. 



Syntax 



blank ENDPROG 

Required* none 

Defaults* none 

Indexable* none 






Operands Descr i pt i on 
none none 
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ENDTASK 



ENDTASK 



Task Control 



The ENDTASK statement defines the end of a block of 
instructions associated with a task. Each task* except the 
initial task* requires one ENDTASK as its final statement. 
When this instruction is executed* the task will be detached. 
If another ATTACH is issued* execution will resume at the ini- 
tial instruction of the task. 

ENDTASK actually generates two instructions: DETACH and GOTO 
start where start is the label of the first instruction to be 
executed when the task is first attached. 

Syntax 



label 

Requ i red : 
Defaults : 



ENDTASK 

none 
code=-l 



code, Pl = 



Indexable: none 



,4" "X 



Operands Description 

code The posting code to 
word (first word of 
detached . 



be inserted in the task code 
the TCB) of the task being 



Pl = 



Parameter naming operand. See "Use of The Parameter 



Naming Operands 
descr i pt i ons . 



(Px=)" on page 8 for further 



o 



116 SC34-0314 



o 



ENQ 



ENQ 



Task Control 



The ENQ instruction acquires exclusive control of a system or 
user resource other than a terminal. 

A resource is a logical or physical entity (for example an I/O 
device* subroutine, or data set) which must be used in a serial 
fashion. Enqueuing is the process of acquiring exclusive con- 
trol in order to ensure serial (one at a time) use. In general* 
there are two types of resources* system and user. System 
resources are those which may be shared serially by all user 
programs* and are defined by symbolic names which are known 
broadly across the system. User resources are shared serially 
by different parts of one user program and &r& identified by 
symbolic names known only within that user program. 

Syntax 






label 

Requ i red : 
Defaults: 
Indexable : 



ENQ 



resource* BUSY=busyaddr*Pl= 



resource 

none 

resource 



Operands 
resource 
BUSY = 



Pl = 



PescriPtiQn 

The symbolic name of the resource to be enqueued. 

The address of the instruction to receive control 
if the requested resource is not available. If the 
resource is busy and this operand is not specified* 
the requesting task will be placed in a wait state 
until it is available. 

Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px=)" on page 8 for further 
descr i pt i ons . 



o 



Each named resource is represented by a 5-word QCB. The 
resource name is the label of the QCB. You must explicitly code 
any QCBs necessary in programs to be assembled with $EDXASM. 
The Series/1 and host macro assemblers automatically create 
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ENQ 



the necessary QCB if a DEQ 
included in the program. 



instruction naming the resource is 



ENQ normally assumes that the resource (QCB) to be queued for 
is in the same partition as the current program. However* it is 
possible to enqueue on a resource in another partition using 
the cross-partition capability of ENQ. For more information on 
this subject refer to the System Guide topic on 
"Cross-Partition Services." 



/""">\ 



j 



o 
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ENQT 



ENQT 



Terminal I/O 



The ENQT instruction acquires exclusive access to a terminal 
until a DEQT is executed. ENQT is also used to establish termi- 
nal configuration parameters* such as the limits and mode of a 
logical screen, which will be in effect during the period of 
exclusive access. 

Note : As part of the LOAD function, a DEQT of the terminal 
currently in use by the loading program is performed. You 
should allow for this circumstance in coding the program which 
issues the LOAD instruction. 

Syntax 






label 



ENQT name,BUSY=,Pl= 



Requ i red : none 

Defaults: name=terminal from which the issuing program 

was loaded 
Indexab le * none 



Operands Descr i pt i on 

name In general, this parameter is the label of an IOCB 
statement defining the terminal to be accessed, and 
this form would be used to establish temporary ter- 
minal configuration parameters. However, two 
special names are recognized: SSYSLOG and $SYSPRTR. 
When one of these names is used, the terminal 
acquired is the one whose TERMINAL statement has 
that label. If this parameter is not specified, or 
if no terminal with the indicated name exists, then 
access defaults to the terminal from which the pro- 
gram was loaded . 



o 



BUSY = 



The terminal to which the ENQT instruction is 
directed may have been acquired by another task or 
may be in use by a supervisor utility function. The 
requesting task is then placed in a queue, waiting 
for the device, and its operation is suspended 
until all other users preceding it have been serv- 
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ENQT 



iced. The BUSY operand allows the program to detect 
such a busy condition before it is placed in the 
queue. Code BUSY with the label of the instruction 
where execution is to proceed to if the terminal is 
i n use . 



\4 j/ 



Pl = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 






^kx^jr 



120 SC34-0314 



o 



ENTRY 



ENTRY 



Program Module Sectioning 



The ENTRY statement defines one or more labels as being entry 
points within a program module. These entry point labels may 
be referenced by instructions in other program modules that are 
link-edited with the module which defines the entry label. The 
program modules which reference the label must contain either a 
EXTRN or WXTRN statement for the label. 

Svntax 



blank 



Requ i red : 
Defaults : 
Indexable : 



ENTRY one or more relocatable symbols 
separated by commas 

one symbol 

none 

none 



Qperqnq's Description 



One or more symbols that appear as statement labels 
within the program module* 
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EOR 



EOF? 



4f \ 



Data Manipulation 



The EOR instruction (exclusive OR) makes a logical comparison 
of two bit-strings and provides a result* bit by bit* of 1 or 0. 
If the inputs are the same* the result is 0. If the inputs are 
not alike* the result is 1. If the entire input fields are 
identical, the entire resulting field will be 0. If one or more 
bits differ, the resulting field will contain a mixture of 0s 
and Is . 

Syntax 



label 



Requ i red : 
Defaults : 
Indexable : 



EOR opndl ,opnd2, count ,RESULT=, 
P1=,P2=,P3= 

opndl » opnd2 

c o unt = (1, WORD ),RESULT=, opndl 

opndl *opnd2, RESULT 






Operands Descr i pt i on 

opndl The name of the variable to which 
applies* it cannot be a constant. 



the operat i on 



opnd2 



The value to be compared to the first operand. 
Either*the name of a variable or an explicit con- 
stant may be specified. 



count 



The number of consecutive variables upon which the 
operation is to be performed. The maximum value 
al lowed i s 32767 . 



The count operand can include the precision of the 
data. Because these operations are parallel (the 
two operands and the result are implicitly of like 
precision), only one precision specification is 
required. That specification may take one of the 
following forms ? 



BYTE — Byte precision 
WORD -- Word precision 
DWORD -- Doubleword precision 



^ka^Jr 
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EOR 



RESULT* The name of a variable or vector in which the result 
is to be placed. In this case the variable speci- 
fied by the first operand is not modified. This 
operand is optional* 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) n on page 8 for 
further descriptions. 



Examp le 



C DATA X»92 f 

D DATA X'QF' 

R DATA X f 00' 

EOR CD, (l.BYTE) , RESULT* R 



binary 10010010 
binary 10001111 



After execution of the example EOR. fields C and D are 
unchanged. Field R looks like this'. 



DATA X'lD' 



binary 00011101 



o 
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EQU 



Data Definition 



The EQU instruction assigns a value to a symbol. The symbol 
(the label on the EQU statement) can be used as an operand in 
other instructions wherever symbols are allowed. 



Syntax 



label 

Requ i red J 
Defaults: 
Indexable * 



EQU 



value 



label t value 

none 

none 



Operands Descr i pt i on 

value A self-defining term or another symbol. If it is a 
symbol it must have been previously defined. The 
symbol may be coded as an asterisk (x). The aster- 
isk refers to the next available storage location 
in the program. It is used primarily to generate 
convenient labels for use within the program. 






Note : When the symbol is used as an operand in an 
instruction that allows either immediate data or 
the label of a variable as the operand, the symbol 
will be interpreted as a variable unless it is 
preceded by a plus ( + ) sign. 

The label may be used in other instructions as 
desired. Nhen using $EDXASM it must be preceded by 
a + where literal or immediate data is desired; oth- 
erwise* it is assumed to be the address of the data. 



o 
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Example 



EQU 



EQU 2 

MOVE (A,#l),7 
MOVE C,A 
MOVE C+A 



A has the value of 2 
7 is moved to addr (2 + #1) 
Contents of addr 2 moved to 
A '2' is moved to C 



B EQU A 

MOVE C,+B 

CALLA EQU * 

CALLSUB CALL PROGA 



B also 
A '2' 
CALLA 



has the value of A (2) 
is moved to C 
is equivalent to CALLSUB 
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ERASE 



ERASE 



Terminal I/O 



The ERASE instruction causes designated portions of the screen 
to be cleared (blanked) and set to a no data* null characters 
condition. It applies only to terminals accessed in STATIC 
mode, STATIC mode is specified with the SCREEN parameter of 
either a TERMINAL or IOCB statement. 

S yntax 



label 



ERASE count,MODE=,TYPE=,SKIP=,LINE=,SPACES= 



Requ i red : none 

Defaults: count-maxi mum,MODE=FIELD, TYPE=DATA, 

SKIP=0,LINE=current 1 i ne , SPACES* 
Indexable: count, SKIP, LINE, SPACES 



Operands Descr i p,t i on 

count The number of bytes to be erased. Both 
non -protected and protected characters contribute 
to the count, even if only non-protected characters 
are erased . 






MODE = 



The terminating condition for the erase operation. 



MODE=FIELD: The operation terminates whenever the 
mode-of-character display changes from non- 
protected to protected, or when the end of the cur- 
rent line is reached. 



MODE=LINE: 
line. 



Erasure continues to the end of the 



MODE=SCREEN: Erasure continues to the end 
logical screen. 



of the 



Exhaustion of the count takes precedence over any 
other terminating condition. An unspecified count 
is therefore implicitly large enough to include the 
entire logical screen. 
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ERASE 

The type of data to be erased. 

TYPE=DATA: Only unprotected characters are erased. 

TYPE=ALL: Both protected and unprotected charac- 
ters are erased . 



SKIP = 



LINE = 



The number of lines to be skipped before the next 
operation. If a current concatenated line has not 
been written* then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size 
(BOTM-TOPM-NHIST) , it is divided by the page size, 
and the remainder is the number of lines skipped. 

This operand is used to specify the line at which 
the next I/O operation will take place. Code a num- 
ber between and the number of the last usable line 
on the page (BOTM-TOPM-NHIST). For hardcopy 
devices or roll screens, if the value specified is 
less than or equal to the current line number, then 
the forms will move to the specified line on the 
next page, otherwise to that line on the current 
page. For static screens, the I/O operation will 
take place on the line specified. In any case, if 
the value exceeds the last usable line number, it is 
divided by the logical page size, and the remainder 
is used as the line number. 



SPACES= The I/O position for a terminal or logical screen is 
defined by the line number and the position, within 
that line, of the typing element or cursor. The 
SPACES parameter is used to specify an increment to 
the cursor position. It does not imply 
over-printing with blank characters on display 
screens. Whenever LINE or SKIP is specified on an 
instruction, the current indent is reset to zero 
(carriage return). For static screens in partic- 
ular, specification of both LINE and SPACES desig- 
nates a character position in Two-coordinate form. 
If SPACES is specified without LINE or SKIP, then 
the indent value is increased by the value speci- 
fied. 



Example 

ERASE 4,M0DE=FIELD,TYPE=DATA 

ERASE LINE=0,SPACES=0,MODE=SCREEN,TYPE=ALL 

ERASE LINE=1,M0DE=LINE,TYPE=ALL 
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EXIO 



EXIO Control 



EXIO is used to request execution of 
user-defined IDCB. 

Syntax 



command in 



label 

Required: 
Defaults : 



EXIO 

i d c b a d d r 
none 



idcbaddr, ERROR*, Pl= 



Indexable: idcbaddr 



Operands Descr i ot i on 

idcbaddr The address of an IDCB. 



ERROR* 



Pl = 



The label of the first instruction executed if an 
error occurs during execution of this command. 
This instruction will not be executed if an error is 
detected at the occurrence of an interrupt caused 
by the command. The condition code (ccode) 
returned at interrupt time is posted in an ECB (see 
the EXOPEN instruction). 

A 'Device Busy' bit is set on by the EXIO 
instruction if a START command is executed. It is 
reset after the device interrupts if the operation 
is complete. If a device fails to interrupt or com- 
plete an operation* it will be necessary to reset 
the 'Device Busy" bit so that another command may be 
executed. The device busy bit can be reset by issu- 
ing an EXIO instruction to the appropriate IDCB 
followed by an IDCB instruction with COMMAND=RESET. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Note ? For a list of instruction and interrupt condition codes, 
see the EXOPEN instruction and Figure 7 on page 131 and 
Figure 8 on page 132. 



V 
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EXOPEN 



EXIO Control 



EXOPEN is used to specify the locations where information is to 
be returned after an EXIO device interrupt. EXOPEN does not 
reset device status or device busy. 



Syntax 



label 



EXOPEN 



devaddr,listaddr,ERR0R=,Pl=,P2= 



Required? devaddr, listaddr 
Defaults J none 
Indexable: listaddr 



Vy 1 



Operands Descr i pt i on 

devaddr The device address as two hexadecimal digits. 

listaddr The label of the first word of a list of three 
addresses . 

The three addresses in the list are: 

1. The address of a 3-word block where* after an 
interrupt* the system will store: 

a. Interrupt ID word 

b. Level status register at time of interrupt 

c. Address of ECB posted 

Note : If this word is zero* the information 
will not be returned. 

2. The address of a list of ECB addresses. The 
interrupt condition code (ccode) received from 
the device will determine which ECB in the list 
will be posted. A ccode=0 will cause posting at 
the first ECB in the list, etc. The same ECB 
may be specified for more than one condition 
code. The ECB specified for ccode = 2 (ex- 
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EXOPEN 



ception) will be posted in the event of a pro- 
gram error. The posting code contains: 

a . B i t on ( 1 ) 

b . Bits 4-7 ccode 

c. Bits 8-15 device address 



v.. 



ERRORS 



Px = 



Interrupt condition codes are shown in Figure 8 
on page 132 

3. The address of a DCB containing the parameters 
of a start cycle steal status operation. This 
operation will be started by the system* using 
this DCB, if an exception interrupt is received 
from this device. If the word is zero, the 
operation will not be performed. 

The label of the first instruction to be executed if 
an error is encountered during the execution of 
th i s i nstruct i on . 



Parameter naming operands. See 
Parameter Naming Operands (Px=)" 
further descriptions. 



"Use of The 
on page 8 for 



Note : Refer to the description manual for the processor in use 

for more information on interrupt ID, level status register, 

interrupt condition codes, and DCBs . Refer to the description 

mai 

va 

using start cycle steal status. 



iterrupt condition codes, and DCBs. Refer to the description 
inual for the device in use for information on the causes of 
irious condition codes and the status information available 
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EXIO Return Codes 



I/O Instruction Return Codes are located in word of TCB. Word 
1 of TCB contains supervisor instruction, address. 



Code Description 



-1 Command accepted 

1 Device not attached 

2 Busy 

3 Busy after reset 

4 Command reject 

5 Intervention required 

6 Interface data check 

7 Controller busy 

8 Channel command not allowed 

9 No DDB found 

10 Too many DCBs chained 

11 No address specified for residual status 

12 EXIODEV specified zero bytes for residual status 

13 Broken DCB chain (program error) 
16 Device already opened 



Figure 7. EXIO Return Codes 
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1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 
14 
15 



Code Description 



and 
and 
and 



PCI 

except i on 
device end 



Controller end 

Program Controlled Interrupt (PCI) 

Exception 

Device end 

Attent i on 

Attent i on 

Attent i on 

Attent i on 

Not used 

Not used 

SE on and too many DCBs chained 

5E on and no address specified for residual status 

SE on and EXIODEV specified no bytes for residual 

status 

Broken DCB chain 

ECB to be posted not reset 

Error in Start Cycle Steal Status 

(after exception) 



Note * Interrupt Condition Codes (Bits 4-7 of word of 
ECB) (If bit is on, bits 8-15=device ID) 






Figure 8. EXIO Interrupt Codes 
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Example 
L40P 



EXOPEN 



EXOPEN 



E4,LNLIST 



LNLIST 



DATA 
DATA 
DATA 



A(LNID) 

A(LNECBS) 

A(LNSCSS) 



LNID DATA 

LNECBS DATA 

DATA 

DATA 

DATA 



3F'0 f 

F'0 f no ECB 

A(LNPCIR) 

A(LNEXCP) 

A(LNDEVD) 



for code 



V/' 



LNSCSS 


DCB 


IOTYPE=INPUT,C0UNT=2 0,DATADDR=LNCSD 


LNCSD 


DATA 


10F* f 


LNPCIR 


ECB 





LNEXCP 


ECB 





LNDEVD 


ECB 
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EXTRN/WXTRN 



Program Module Sectioning 



Both of these statements identify symbols which are not defined 
within the program module containing the EXTRN/NXTRN state- 
ment. References to these symbols will be resolved when the 
program module is link-edited with a program module containing 
an ENTRY definition for the subject symbol. If no symbol is 
found during link-edit* the symbol is said to be unresolved and 
it is assigned the same address as the beginning of the pro- 
gram . 

WXTRN symbols are resolved only by symbols that are contained 
in modules that are included by the INCLUDE statement in the 
link-edit process or by symbols found in modules called by the 
AUTOCALL function. However, WXTRN itself does not trigger 
AUTOCALL processing. 

Only symbols defined by EXTRN statements will be used as search 
arguments during the AUTOCALL processing function of SLINK. 
Any additional external symbols found in the module found by 
AUTOCALL will be used to resolve both EXTRN and WXTRN symbols. 
See the description of SLINK in Utilities* Operator Commands* 
Program Preparation, Messages and Codes for further 
information. 

Syntax 






b lank 
blank 



Requ i red : 
Defaults t 
Indexable 



EXTRN One or more relocatable symbols 
WXTRN that are external to this 

program, separated by commas 

one symbol 

none 

none 



Operands 



Description 



One or more external symbols which will be resolved 
by link-editing to a program module which contains 
the same symbol defined by an ENTRY statement. 
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FADD 



Data Manipulation 



The floating-point ADD provides signed addition of operand 2 to 
operand 1. FLOAT=YES must be coded on the PROGRAM statement of 
any program whose initial task uses floating-point 
instructions and on the TASK statement of any task containing 
floating-point instructions. 

Syntax 



label 



FADD opndl,opnd2,RESULT=,PREC=, 
P1=,P2=,P3= 



Required: opndli opnd2 

Defaults: RESULT=opndl , PREC=FFF 

Indexable: opndl , opnd2 , RESULT 



J 



Operands Descr i pt i on 

opndl The name of the variable to which the operation 
applies. For example, the variables in FADD A,B 
correspond to the common algebraic notation A+B. 
If the RESULT operand is not specified, then opndl 
is also the implicit result. This operand may not 
be a constant . 



opnd2 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit integer constant (immediate 
data) between -32768 and +32767 may be specified. 



RESULT= This operand is optional and can be coded with the 
name of a variable in which the result is to be 
placed. When this operand is coded the variable 
specified by the first operand is not modified. 



PREC = 



All possible combinations of single and extended 
precision are permitted. An immediate value for 
opnd2 will be converted to a single-precision value 
regardless of any other method of precision spec- 
ification discussed in the following paragraphs. 
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Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for fur- 
ther descriptions. 



The PREC operand is specified as xyz where x, y, and z are char- 
acters representing the precision of o p n d 1 , o p n d 2 , and the 
RESULT operands respectively. Either 2 or 3 characters must be 
specified depending on whether or not the RESULT operand was 
coded. Permissible characters are: 

F = Single-precision (32 bits) 
L = Extended-precision (64 bits) 
* = Default (single-precision) 

If the precision of an operand is not established by the PREC 
operand* it will default to single-precision. 

Return Codes : Floating-point operations produce return codes 
which are placed in the task code word* referred to by taskname 
(see PROGRAM/TASK). These codes must be tested immediately 
after the floating-point instruction is executed or the code 
may be destroyed by subsequent instructions. 



Code 



Descr i pt i on 



-1 Successful completion 
1 Floating point overflow 
5 Floating point underflow 



H^y 



Examples 



FADD F1,F2,RESULT=F3 

FADD (0,#1),(2,#2),RESULT=ANSL,PREC=LLL 

FADD VALUE, 32767, PR EC=LF 



V/ 
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FDIVD 



FDIVD 



J** 1 *"^ 

^B^ 



Data Manipulation 

Floating-point divide provides signed division of operand 1 by 
operand 2. FLOAT=YES must be coded on the PROGRAM statement of 
any program whose initial task uses floating-point 
instructions and on the TASK statement of any task containing 
floating-point instructions. 

Syntax 



label 



FDIVD opndl, opnd2,RESULT=,PREC=, 
P1=,P2=,P3= 



Required: opndl,opnd2 

Defaults: RESULT* opndl , PREC=FFF 

Indexable: opndl , opnd2 » RESULT 



Operands Descr i pt i on 

opndl The name of the variable to which the operation 
applies. If the RESULT operand is not specified* 
then opndl is the implicit result. This operand 
must not be a constant. 



opnd2 






RESULT* 



PREC = 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit integer constant (immediate 
data) between -32768 and +32767 may be specified. 

This operand is optional and can be coded with the 
name of a variable in which the result is to be 
placed. In this case, the variable specified by the 
first operand is not modified. 

All possible combinations of single and extended 
precision are permitted. An immediate value for 
opnd2 will be converted to a single precision value 
regardless of any other method of precision spec- 
ification discussed in the following paragraphs. 
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The PREC operand is specified as xyz where x» y, and 
z are characters representing the precision of 
opndl, opnd2» and the RESULT operands respectively. 
Either 2 or 3 characters must be specified depend- 
ing on whether or not the RESULT operand was coded. 
Permissible characters are? 

F = Single-precision (32 bits) 
L = Extended-precision (64 bits) 
* - Default (s i ngle-prc i s i on ) 

If the precision of an operand is not established by 
the PREC operand, it will default to single- 
precision. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) n on page 8 for fur- 
ther descriptions. 



Return Codes : Floating-point operations produce return codes 
which are stored in the task code word, referred to by taskname 
(see PROGRAM/TASK). The codes must be tested immediately after 
the floating-point instruction is executed or the code may be 
destroyed by subsequent instructions. 



Code 



Description 



-1 Successful completion 
1 Floating point overflow 
3 Floating point divide check 

(divide by '0') 
5 Floating point underflow 



/f "\ 



X.,_:V 



Examp les ' 

FDIVD DIV1,DIV2,RESULT=ANS 
FDIVD AB,300,PREC=LS 
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FIND 



FIND 



Program Sequencing 



FIND is used to locate the first occurrence of a specific char- 
acter (byte) in a character (byte) string. 

Syntax 



label 



FIND character, string, length, where* 

notfound,DIR=,Pl=,P2=,P3=,P4=,P5= 



Required: character, string, length, where, notfound 

Defaults: DIR=FORWARD 

Indexable: string, length, and where 



Operands 



Descr i pt i on 



character Specify the character that is the object (target) 
of the search. If searching for an EBCDIC alphamer- 
ic character, specify it in the format C'x 1 where x 
is the desired character. For a bit string which is 
not an alphameric character, specify as X T xx'. 

string Specify the address of the string to be searched. 

length Specify the length of the string to be searched. 
Either the name of a variable or an explicit integer 
constant (immediate data) may be specified. 



where 



Specify the location where the address of the 
target character is to be stored if it is found. If 
it is not found, this word will be unchanged. 



notfound Specify the address of the instruction to be 
executed if the target character is not found. 



DIR = 



Specify DIR=FORWARD or omit to search from left to 
right. Specify DIR=REVERSE to search from right to 
left. 






Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 
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FIND 

Example 
FIND 
FIND 



C'$ f ,MSG1>20,POINTER,NOTFOUND 
X'ACCO,*!) , LSTR, POINTER, NOGOOD 
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FINDNOT 



Program Sequencing 



FINDNOT is used to find, in a character string, the first 
occurrence of a character (byte) different from the one speci- 
fied. 



Syntax 



label 



FINDNOT character, string, length, where, 

notfound,DIR=,Pl=,P2=,P3=,P4=,P5' 



Required: character, string, length, where, notfound 

Defaults: DIR=FORWARD 

Indexable: string, length, and where 






Operands Descr i pt i on 

character Specify the character you are searching for. If 
searching for an alphameric character specify it in 
the format C'x' where x is the desired character. 
For a bit string which is not an alphameric charac- 
ter, specify as X f xx f . 



string Specify the address of the string to be searched. 

length Specify the length of the string to be searched. 
Either the name of a variable or an explicit integer 
constant (immediate data) may be specified. 



where 



Specify the location where the address of the first 
non-target character is to be stored if it is found. 
If one is not found, this word will be unchanged. 



notfound Specify the address of the instruction to be 
executed if a non-target character is not found. 



DIR = 



Specify DIR=FORWARD or omit to search from left to 
right. Specify DIR=REVERSE to search from right to 
left. 
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FINDNOT 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px s ) n on page 8 for 
further descriptions. 



E*ampl£ 
FINDNOT 



C» f , INPUT, 80, CPO INTER, A L LB LANK 



FINDNOT X^O* , CARD + 79, 80, L ASTCH AR, A L LB LANK,D UNREVERSE 






^k^J' 
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FIRSTQ 



Queue Processing 



FIRSTQ acquires entries from a queue defined by DEFINEQ on a 
first-in-first-out (FIFO) basis. Each time FIRSTQ is used, the 
first (oldest) entry is removed from the specified queue and 
returned to the user. The queue element (QE) will then be added 
to the free chain of the queue. 



Syntax 



label 

Requ i red J 
Defaults : 
Indexab le i 



FIRSTQ qname, loc, EMPTY=,P1=,P2= 

qname , loc 
none 
qname , loc 



Operands Descr i pt i on 

qname The name of the queue from which the entry is to be 
fetched. The queue name is the label of the DEFINEQ 
instruction which created the queue. 



loc 



The address of one word of storage where the entry 
is placed, tl or #2 can be used. 



EMPTY = The first instruction of the routine to be invoked 
if queue empty condition is detected during the 
execution of this instruction. If this operand is 
not specified, control will be returned to the next 
instruction after the FIRSTQ and the user may test 
the task code word for a -1 indicating successful 
completion of the operation or a +1 if the queue is 
empty . 



Px = 



Parameter naming operands. See 
Parameter Naming Operands (Px=)" 
further descriptions. 



"Use of The 
on page 8 for 



Example : See the example of queuing instructions in the example 
following the NEXTQ instruction. 
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Data Manipulation 



This instruction provides signed floating-point multipli- 
cation of operand 1 by operand 2. FLOAT = YES must be coded on the 
PROGRAM statement for programs whose initial task uses 
floating-point instructions and on the TASK statement of every 
task containing floating-point instructions. 

Syntax 



labe 1 



Required? 
Defaults : 
Indexab le : 



FMULT opndl, opnd2, RESULT*, PREC=, 
P1=,P2=,P3= 

opnd 1 > opnd2 
RESULT=opndl,PREC=FFF 
opndl, opnd2, RESULT 



Operands Descr i pt i on 

opndl The name of the variable to which the operation 
applies. If the RESULT operand is not specified* 
then opndl is also the implicit result. This oper- 
and may not be a constant. 






opnd2 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit integer constant immediate 
data between -32768 and +32767 may be specified. 



RESULT= 



PREC = 



This operand may optionally be coded with the name 
of a variable in which the result is to be placed. 
In this case, the variable specified by the first 
operand is not modified. 

All possible combinations of single and extended 
precision are permitted. An immediate value for 
opnd2 will be converted to a single precision value 
regardless of any other method of precision spec- 
ification discussed below. 



o 
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The PREC operand is specified as xyz; where x> y> 
and z are characters representing the precision of 
opndl, opnd2> and the RESULT operands respectively. 
Either 2 or 3 characters must be specified depend- 
ing on whether or not the RESULT operand was coded. 
Permissible characters are? 

F = Single-precision (32 bits) 
L = Extended-precision (64 bits) 
* = Default (single-precision) 

If the precision of an operand is not established by 
the PREC operand, it will default to single- 
prec i s i on . 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 






Return Codes ? Floating-point operations produce return codes 
in the task code word> referred to by taskname (see 
PROGRAM/TASK). These codes must be tested immediately after 
the floating-point instruction is executed or the code may be 
destroyed by subsequent instructions. 



Code 



Descr i pt i on 



1 Successful completion 
1 Floating point overflow 
5 Floating point underflow 



Example 

FMULT F1,F2 

FMULT A,B,PREC=FLL,RESULT=DOUBLE 
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Data Formatt i ng 



Specifies the type of conversion to be performed when data is 
transferred from storage to a text buffer by a PUTEDIT 
instruction* or from a text buffer to storage by a GETEDIT 
i nstruct i on . 

The FORMAT statement must be contained in the assembly in which 
it is referenced and cannot be placed within a sequence of 
executable program instructions. 

Note : The FORMAT statement may be continued on multiple lines 
but each line (except the last) must be coded through column 71 
and must have a continuation symbol in column 72. Commas may 
not be used to continue a line before column 71. 

Syntax 



label 

Required: 
Defaults: 
Indexable : none 



FORMAT list, gen 

list 
gen=BOTH 






Operands Descr i pt i on 

list Conversion specifications for the data to be con 
verted . May be : 



Item 
Type 



Def i n i t i on 
I Integer numeric 
F Floating point numeric 
E Floating point numeric E notation 



o 
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Literal alphameric data, enclosed 
in quotes 

Blanks 

Alphameric data 



gen 



GET, if this FORMAT statement is for the exclusive 
use of GETEDIT instructions. 



C\ 



PUT, if this format statement is for the exclusive 
use of PUTEDIT instructions. 

BOTH, if this format statement can be used with 
GETEDIT and PUTEDIT instructions. BOTH, the 
default, requires more storage than either GET or 
PUT. 

The PUTEDIT statement retrieves each variable in the list, 
converts it according to the respective item specification in 
the format statement, and loads it into the text buffer speci- 
fied. Spaces (blanks), line control characters, and literals 
may be i nserted . 

The GETEDIT statement moves data from the text buffer, converts 
it as specified in the FORMAT statement, and stores it at spec- 
ified addresses. Characters in the input buffer may be 
sk i pped . 

The slash (/) in a FORMAT statement associated with a GETEDIT 
statement acts as a delimiter, performing the same function as 
a comma * 

Successive items in the buffer transfer list are converted and 
moved according to successive specifications in the FORMAT 
statement until all items in the list are transferred. If 
there are more items in the list than there are specifications 
in the FORMAT statement, control transfers to the beginning of 
the FORMAT statement and the same specifications are used again 
until the list is exhausted. The entire transfer is treated as 
a single record . 

No check is made to see that the specifications in a FORMAT 
statement correspond in mode with the list items in the GETEDIT 
or PUTEDIT instructions. It is your responsibility to ensure 
that integer variables are associated with I-type format spec- 
ification and real variables with F-type or E-type format spec- 
ifications. You must also ensure that ample storage is 
available for transfer of data in a PUTEDIT operation. 



o 
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Conversion of Numeric Data 



The following specifications, or conversion codes, are avail- 
able for the conversion of numeric data: 



Item 
Type 



I 
F 
E 

where : 

w 



Form 
In 

Fw.d 
Ew.d 



Definition 

Integer numeric 

Floating point numeric 

Floating point numeric E notation 



is an unsigned integer constant specifying the total 
field length of the data. This specification may be 
greater than that required for the actual digits in 
order to provide spacing between numbers; however, 
the maximum width allowed is 40 for I or F specifica- 
t i ons . 

is an unsigned integer constant specifying the 
number of decimal places to the right of the decimal 
point. The allowable range is to w-1 for F-type 
specifications and to w-6 for E-type specifica- 
t i ons . 



Note i The decimal point between the 
specification is required. 



w and d portions of the 



The following discussion of conversion codes deals with load- 
ing a text buffer, using PUTEDIT, in preparation for printing a 
line. The concepts, however, apply to all permissible text 
buffer operations. 



Integer Numeriq Conversion 



J 



General form.* Iw 

The specification Iw loads a text buffer with an EBCDIC charac- 
ter string representing a number in integer form; w print posi- 
tions are reserved for the number. The number is 
right-justified. If the number to be loaded is greater than 
w-1 positions and the number is negative, an error condition 
will occur. A print position must be reserved for the sign if 
negative values are possible; however, positive values do not 
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require a position for the sign. If the number has less than w 
digits* the leftmost print positions are filled with blanks. 
If the quantity is negative* the position preceding the left- 
most digit contains a minus sign. 



The following examples show how each of the quantities on 
left is converted* according to the specification f 1 3 ' * 



the 



Internal Value 



Value in the Buffer 



721 

-721 

-12 

8114 



-5 

9 



721 
*** 
-12 
*x* 


-5 

9 



Note that all error fields are stored and printed as asterisks 






Floating Point Numeric Conversion 



General form: Fw.d 



For F-type conversion* w is the total field length and d is the 
number of places to the right of the decimal point. For output* 
the total field length must include positions for a sign* if 
any* and a decimal point. The sign* if negative* is also 
loaded. For output* w should be at least equal to d + 2. 

If insufficient positions are reserved by d * the fractional 
portion is truncated from the right. If excessive positions 
are reserved by d* zeros are filled in from the right for the 
insignificant digits. 

If the integer portion of the number has less than w-d-1 dig- 
its* the leftmost print positions are filled with blanks. If 
the number is negative* the position preceding the leftmost 
digit contains a minus sign. 

The following examples show how quantities are converted 
according to the specification F5.2* 
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Internal Value 



Value in the Buffer 



o 







12, 


17 






-41. 


16 






i 


2 






7, 


3542 






-1, 








9, 


03 






187. 


64 


Nq 


te„s 


• 
• 





12.17 

***** 

-0.20 
b7.35 
-1.00 
b9.03 
***** 



2. Internal values are shown as their equivalent decimal val- 
ue* although actually stored in floating-point binary 
notation requiring 2 or 4 words of storage. 

3. All error fields are stored and printed as asterisks. 

4. Numbers for F-conversion input need not have their decimal 
points appearing in the input fields (in the text buffer). 
If no decimal point appears* space need not be allocated 
for it. The decimal point is supplied when the number is 
converted to an internal equivalent; the position of the 
decimal point is determined by the format specification. 
However* if the position of the decimal point within the 
field is different from the position in the format specifi- 
cation* the position in the field overrides the format 
specification. For example* for a specification of F5.2* 
the following conversions would be performed? 






Text Buffer Characters 

12.17 
bl217 
121.7 



Converted 
Internal Value 

12.17 
12.17 
121.7 



Floating Point Number Conversion (E-notation) 



General form? Ew.d 

For E-type conversion* w is the total field length and d is the 
number of places to the right of the decimal point. For output* 
the total field length must include sufficient positions for a 
sign* a decimal point* and space for the E notation (4 digits). 
For output* w should be at least equal to d + 6. For input* d is 
used for the default decimal position if no decimal is found in 



\^y 
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the input character string. 

If insufficient positions are reserved by d » the digits to the 
right of d digits are truncated. If excessive positions are 
reserved by d , zeros are filled in from the right for the insig- 
n i f i cant digits. 

The following examples show how each of the values on the left 
is converted according to the specification El 0.4: 



Internal Value 



Value in the Buffer 



12 
-41 

7 

-1 

9 



17 
16 
2 
3542 

03 
00187 



1217Eb02 
4116Eb02 
2000Eb00 
7354Eb01 
lOOOEbOl 
9030Eb01 
1870E-02 



Notes : 






1. T b T represents a blank character stored in the text buffer. 

2. Internal values are shown in their equivalent decimal val- 
ue, although actually stored in floating-point binary 
requiring 2 or 4 words of storage. 



3. All error fields are stored and printed as asterisks. 



4. Numbers for E-conversion need not have their decimal 
points appearing in the input fields (in the text buffer). 
If no decimal point appears, you need not allocate space 
for it. The decimal point is supplied when the number is 
converted to an internal equivalent, the position of the 
decimal point is determined by the format specification. 
However, if the position of the decimal point within the 
field is different from the position in the format specifi- 
cation, the position in the field overrides the format 
specification. For example, for a specification of E7.2, 
the following conversions would be performed: 



Text Buffer Characters 



Converted Internal Value 



12. 17E0 
bl217El 
121 .7E-2 



12.17 
121.7 
1.217 
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Alphameric Data Specification 



The following specifications are available for alphameric 
data : 



Item 
Type 

H 

A 

X 



Form 
'data' 
A 
X 



Def i n i t i on 

Literal alphameric data 

Alphameric data 

Insert blanks (output) or 
skip input fields 



The H-spec i f i cat i on is used for alphameric data that is not 
changed by the program* such as printed headings. 

The A-spec i f i cat i on is used for alphameric data in storage 
which is to be operated on by the program such as a line that is 
to be pr i nted . 

The X-spec i f i cat i on is used to bypass one or more input charac- 
ters or to insert blanks (spaces) on an output line. 



W 



Literal Specification 



General form? H 

The H-spec i f i cat i on is used to create alphameric constants. 
The maximum length for a literal is 255. 

Literals must be enclosed in apostrophes. For example: 

FORMAT ('INVENTORY REPORT') 

The apostrophe ( f ) and ampersand (&) characters within literal 
data are represented by two successive characters. For exam- 
ple* the characters DO & DON'T must be represented as? 

DO && DON' »T 

Literal data can be used only in loading a text buffer; it is 
invalid in a GETEDIT statement. All characters between the 
apostrophes (including blanks) are loaded into the buffer in 
the same relative position they appear in the FORMAT statement. 
Thus : 
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FM FORMAT ('THIS IS ALPHAMERIC DATA f ,3X,A6) 



PUTEDIT FM,TEXT, (ALP) 

cause the following record to be loaded into the buffer labeled 
TEXT. 

THIS IS ALPHAMERIC DATA AAAAAA 
Literal data may also be included with variable data. 
For example* the instructions: 

FM FORMAT ('TOTAL 0F',I2, f VALUES = »,F5.2) 

PUTEDIT FM,TEXT, ( TOTAL , VALUE ) 

cause a record such as the one in the following example to be 
loaded into the buffer. 

TOTAL OF 5 VALUES = 35.42 



Alphameric Spec i fi cat ion 



General form: Aw 

The specification Aw is used to transmit alphameric data 
to/from variables in storage. It causes the first w characters 
to be stored into or loaded from the area of storage specif ied 
in the text buffer transfer list. For example* the statements: 



FM 



FORMAT (A4) 



GETEDIT FM, TEXT, (ERROR) 

cause four alphameric characters to be transferred from the 
buffer TEXT into the variable named ERROR. 

The following statements: 

FM FORMAT ( • XY= f , F9 . 3 , A4 ) 






PUTEDIT FM, TEXT, (A, ERROR, B, ERROR) 



Chapter 3. Instruction and Statement Descriptions 153 



FORMAT 

may produce the following line'. 

XY = 5976.000 XY= 6173.500 



In this example, the ellipses (.. 
the character string field ERROR. 



. . ) represent the contents of 



The A-spec i f i cat i on provides for storing alphameric data into 
a field in storage, manipulating the data (if required), and 
loading it back to a text buffer. 

The alphameric field can be defined using the DATA statement or 
the TEXT statement. On i nput ( GETEDIT) the alphameric field is 
set to blanks prior to data conversion. The alphameric data is 
left justified in the field. 



\J 



Blank Specification 

General form: X 

The X-spec i f i cat i on allow you to insert blank characters in an 
output buffer record and to skip characters of an input buffer 
record . 

When the nX specification is used with an input record, n char- 
acters are skipped before the transfer of data begins. When the 
nX specification is used with an output record, n characters 
are inserted before the transfer of data begins. For example, 
if a buffer has four 10-position fields of integers, the state- 
ment : 

FORMAT (110, 10X, 110, 110) 

could be used to avoid transferring the second field. 

When the X-spec i f i cat ion is used with an output record, n posi- 
tions are set to blanks, allowing for spaces on a printed line. 
For example, the statement: 

FORMAT (F6.2,5X,F6.2,5X,F6.2,5X) 
may be used to set up a line for printing as follows: 

-2 3.4 5bbbbbbl7.32bbbbbb2 4.6 7bbbbb 
where b represents a blank. 



( i 
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Blank Lines in Output Records 



Blank lines may be introduced between output records by using 
consecutive slashes (/). The slash causes a line control char- 
acter to be inserted in the buffer. The number of blank lines 
inserted between output records depends upon the number and 
placement of the slashes within the statement. 

If there are n consecutive slashes at the beginning or end of a 
format specification, n blank lines are inserted between out- 
put records. For n consecutive slashes elsewhere in the format 
specification, the number of blank lines inserted is - * ■"-- 
example, the statements: 



n-1 . For 



PUTEDIT FM,TEXT,(X,(Y,D),Z) 



FM 



FORMAT ('SAMPLE OUTPUT ' , /, I5////I 9 , 14//) 



X DC 

Y DC 

Z DC 

TEXT TEXT 



F T -1234 f 

D' 111222333* 

F f 22 f 

LENGTH=50 



result in the following output? 

SAMPLE OUTPUT 

-1234 

( 3 blank 1 i nes ) 

111222333 22 

(2 blank 1 i nes ) 



Repetitive Specification 



A spec i f i cat i on may be repeated as many times as desired, with- 
in the limits of the text buffer size, by preceding the spec- 
ification with an unsigned integer constant. The allowable 
range is 1 (the default) to 255. 



Thus , 

(2F10.4) 



%J 



i s equ i valent to : 
(F10.4,F10.4) 
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and uses less storage. 



o 



constant) 




FORMAT 



(2(F10.6,F5.2),I4,3(I5)) 



i s equ i valent to : 

FORMAT (F10.6,F5.2,F10.6,F5.2,I4,I5,I5,I5) 

Storage Considerations 

In general* the fewer items in the FORMAT list* the less stor- 
age that is required. An item is defined as a single conversion 
specification, literal data string, one or more grouped record 
delimiters, or a parenthetical multiplier. For example, the 
following format statements all have three items: 

FORMAT (15,15,16) 

FORMAT (15,315, 'ITEM 3 f ) 

FORMAT (3(15), 315) 

FORMAT (15/, 15) 

FORMAT (15,///, 15) 

FORMAT (/,/,/) 

FORMAT (2(/),/) 

FORMAT (2(1X),2X) 

FORMAT (15/, 2X) 



o 

"iy 
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FPCONV 






Data Manipulation 



FPCONV is used to convert integer values to or from floating- 
point numbers* by using the optional floating-point hardware 
feature. FLOAT=YES must be coded on the PROGRAM statement for 
programs whose initial task uses floating-point instructions 
and on the TASK statement of every task containing floating- 
point instructions. 



Syntax 



label 



Required: 
Defaults : 
Indexab le : 



FPCONV opndl,opnd2,C0UNT=,PREC=, 
P1=,P2=,P3= 

opndl > opnd2 
C0UNT=1*PREC=FS 
opndl » opnd2 



Operands Descr i pt ion 

opndl The address (label or index register reference) to 
receive the output of the conversion. 



opnd2 



The address of the data input to the conversion. 
f opnd2' may also be immediate data in the form of an 
integer constant between -32768 and +32767. 






COUNT= The number of values* beginning at opnd2* to be 
converted and stored at locations beginning at 
opndl. If opnd2 is immediate data* it will be con- 
verted and stored beginning at the location defined 
by opndl for as many locations as are defined by the 
COUNT operand . 



PREC = 



Defines the type and precision of opndl and opnd2 
respectively. Its form is PREC = xy. The xy is a two 
character value composed of two of the following 
symbols. The type* integer or floating-point* of 
opndl and opnd2 must not be the same. 
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Px = 



S = One word integer (or immediate data) 

D = 2-word integer 

F = Single -precision floating-point 

L = Extended-precision floating-point 

* = Use default (single-precision) 

If PR EC is not coded, the default specification for 
the operand will be used. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) w on page 8 for 
further de sc r i p t i o n s . 



Example 

FPCONV A,B,C0UNT=5,PREC=LD 

FPCONV X,L4,PREC=DL 

FPCONV (6,#1),C 

FPCONV (X,#1),(Y,#2),PREC=DL 



,/ff A 



\tvJr 
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FSUB 



Data Manipulation 



This instruction provides floating-point signed subtraction of 
operand 2 from operand 1. FLOAT=YES must be coded on the PRO- 
GRAM statement for programs whose initial task uses floating- 
point instructions and on the TASK statement of every task 
containing floating-point instructions. 



Syntax 



label 



FSUB opndl, opnd2,RESULT=,PREC=, 
P1=,P2=,P3= 



Required: opndl, opnd2 
Defaults: RESULT=opndl,PREC=FFF 
Indexable: opnd 1 , opnd2 , RESULT 






Operands Description 

opndl The name of the variable to which the operation 
applies. For example* the variables in FSUB A,B 
correspond to the common algebraic notation A-B. 
If the RESULT= operand is not specified, then opndl 
is also the implicit result. This operand may not 
be a constant . 



opnd2 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit integer constant ('immedi- 
ate data T ) between -32768 and +32767 may be speci- 
fied. 



RESULT= This optional operand can be coded with the name of 
a variable in which the result is to be placed. In 
this case, the variable specified by the first 
operand is not modified. 



PREC = 



All possible combinations of single and extended 
precision are permitted. An immediate value for 
opnd2 will be converted to a single precision value 
regardless of any other method of precision spec- 
ification discussed below. 
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The PREC operand is specified as xyz; where x, y> 
and z are characters representing the precision of 
o p n d 1 , o p n d 2 , and the RESULT operands respectively. 
Either 2 or 3 characters must be specified depend- 
ing on whether or not the RESULT operand was coded. 
Permissible characters are: 

F = Single-precision (32 bits) 
L = Extended-precision (64 bits) 
* = Default (single-precision) 

If the precision of an operand is not established by 
the PREC operand, it will default to single pre- 
cision. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for fur- 
ther descriptions. 



Index Rea i sters 



The index registers (#1 and #2) may not be used as operands in 
floating-point operations since they are only 16 bits in 
length. The registers may, however, be Used to specify the 
address of a floating-point operand. 



\ 



.V 



Return Codes 



Floating-point operations produce return codes in the task 
code word, referred to by taskname (see PROGRAM/TASK). These 
codes must be tested immediately after the floating-point 
instruction is executed or the code may be destroyed by subse- 
quent instructions. 



Code 



Descr i pt i on 



-1 Successful completion 
1 Floating point overflow 
5 Floating point underflow 



vV 
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Example 
FSUB 
FSUB 



L4,F2,PREC=LF 
L4,2,PREC=L* 
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Data Formatting 



GETEDIT moves data from a terminal or a text buffer, converts 
the data, and stores it in variables within the program. 

Syntax 



label 



GETEDIT format, text ,( 1 i st) ,( format list), 
ERROR=,ACTION=,SCAN=,SKIP=,LINE=, 
SPACES*, PROTECT* 



Required: text, (list), and either format 

or ( format list) 
Defaults: ACTION- 10, SCAN= FIXED, PR0TECT=N0 
Indexable: none 



Operands Description 

format The name of a FORMAT statement or the name to be 
attached to the format list optionally included in 
this instruction. This statement or list will be 
used to control the conversion of the data. This 
operand is required if the program is compiled with 
$EDXASM. 






text 



list 



The name of a TEXT statement defining the text 
buffer. If data is moved from the terminal, this 
buffer stores the data as an EBCDIC character 
String before it is converted and moved into the 
var i ables . 

A description of the variables or locations which 
will contain the desired data. The list will have 
one of the following forms: 



c 
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( (variable, count, type) , - 
or 

(variable, ) 

or 

( (variable, count) , ) 

or 

((variable, type) , ) 



where : 

var i able 

count : 
type : 



is the name of a variable or 
group of variables to be 
i ncluded . 

is the number of variables 
that are to be converted, 
is the type of variable to 
be converted. 



format 1 i st 



S - Single-precision integer (default) 

D - Double-precision integer 

F - Single-precision floating-point 

L - Extended-precision floating-point 

The type will default to S for integer 
format data and to F for floating-point 
format data 



If you wish to refer to this format statement from 
another GETEDIT instruction, then both the format 
and format list operands must be coded. Refer to 
the FORMAT statement for coding instructions. This 
operand is not allowed if the program is compiled 
with $EDXASM. 

ERROR= The name of a user's routine to branch to if an 
error is detected during the GETEDIT execution. 
Errors that might occur causing this action to take 
place are : 

• Use of an incorrect format list. 

• No data in input (attempt is made to convert the 
rest) 

• Field omitted (attempt is made to convert the 
rest ) 



o 



Not enough data in input text buffer to satisfy 
the Data Li st . 
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ACTION= 



• Conversion error (value too large). 

• The error indicators (return codes) are listed 
in the description of the CONVTD instruction. 

• If the ERROR parameter is not coded* then no 
error indicator is returned to the user. 

10 causes a READTEXT instruction to be executed 
prior to conversion. 

STG causes the conversion of a text buffer that has 
been previously obtained. The data must be in 
EBCDIC. 



o 



SCAN = 



SKIP = 



FIXED - Data elements in the input text buffer must 
be in the format described in the format statement. 
That is> if a field width is specified as 6 , then 
there are 6 EBCDIC characters used for the conver- 
sion. Leading and trailing blanks are ignored. 

FREE - Data elements in the input text buffer must 
be separated by delimiters: blank, comma, or slash. 
If A format type items are included, they must be 
enclosed in apostrophes, for example, 'xyz' . This 
allows the inclusion of any alphameric characters 
except the apostrophe. 

The number of lines to be skipped before the next 
operation. If a current concatenated line has not 
been written, then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size 
(BOTM-TOPM-NHIST), then it is divided by the page 
size and the remainder is the number of lines 
sk i pped . 



LINE* 



This operand is used to specify the line at which 
the next I/O operation will take place. Code a num- 
ber between and the number of the last usable line 
on the page (BOTM-TOPM-NHIST). For hardcopy 
devices or roll screens, if the value specified is 
less than or equal to the current line number, then 
the forms will move to the specified line on the 
next page, otherwise to that line on the current 
page. In any case, if the value exceeds the last 
usable line number, then it is divided by the log- 
ical page size, and the remainder is used as the 
1 i ne number. 



^ktm*r 
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SPACES* The I/O position for a terminal or logical screen is 
defined by the line number and the position* within 
that line* of the typing element or cursor. The 
SPACES parameter is used to specify an increment to 
the cursor position. It does not imply 
over-printing with blank characters on display 
screens. Whenever LINE or SKIP is specified on an 
instruction, the current indent is reset to (car- 
riage return). For static screens in particular, 
specification of both LINE and SPACES designates a 
character position in two-coordinate form. If 
SPACES is specified without LINE or SKIP, then the 
indent value is incremented by the value specified. 

PROTECT* Code PROTECT=YES if the input text is not to be 
printed on the terminal. This operand is effective 
only for devices which require the processor to 
echo input data for printing. 



Operation GETEDIT scans the input text buffer and converts 
data according to the FORMAT list, then stores the 
data in the users program at the locations speci- 
fied by the data list. 






Example 



GETEDIT 



FM,TEXT1, (A, (B,F), (CD) 



TEXT1 TEXT LENGTH=24 

FM FORMAT ( I 4 , F6 . 2 , 2X , El . 4) 

The above example will convert the first 4 characters to an 
integer and store them at A, then convert the next 6 characters 
to a single-precision floating-point value and store them at B. 
The next 2 characters are bypassed. The next 10 characters are 
converted to extended-precision floating-point (due to type 
specification E) and stored at C. 

See Figure 9 on page 166 for an overview of GETEDIT. 

Note : SLINK must be used in order to include the formatting 
routines which are supplied as object modules. Refer to "Data 
Formatting Instructions" on page 18 for additional informa- 
tion. 
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GETEDIT 



length 
count 
FLOATEXT 



12 



OA 



4B 
F3 
F1 
F4 
F1 
F6 
C5 
40 
FO 
F1 



40 

40 
40 



o 




FLOATEXT TEXT LENGTH = 18 



GETEDIT FLTFORM,FLOATEXT,((FVAL,F)),ACTION=STG 



FLTFORM FORMAT (E11.4),BOTH 



FVAL 



4132 
43FE 



Binary 
floating- 
point 
number 






Figure 9. GETEDIT Overview 



V-x 
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GETTIME 



Timing 



GETTIME will cause the contents of the system time-of-day clock 
to be inserted into a 3-word table in the application program. 
The 3 words will contain hours* minutes, and seconds, respec- 
tively. It is possible to specify that the date is to be stored 
in an additional 3 words, resulting in a 6-word table contain- 
ing hours, minutes, seconds, month, day, and year. This 
instruction is useful when you wish to store the time of day and 
date with data when it is collected. The maximum time is 
23.59.59. At midnight, the time-of-day clock is reset to and 
the day is incremented by 1. 



Note ? Day, month and year 
necessary by the Supervisor. 



are incremented and reset as 



Syntax 






label 

Requ i red : 
Defaults: 
Indexab le : loc 



GETTIME loc,DATE=,Pl= 

loc 
DATE=NO 



Operands Descr i pt i on 

loc The address of J (1) a 3-word table in which the time 
of day will be stored as hours, minutes, and sec- 
onds, or (2) a 6-word table in which the time of day 
and the date will be stored as hours, minutes, sec- 
onds, month, day, and year. These numbers are in 
binary form . 



DATE = 



Code DATE = YES to obtain the date as well as the time 
of day. If the system was generated with 
DATEFMT=DDMMYY on the SYSTEM statement, the TCB 
code word, $TCBCO, will contain a -2. If 
DATEFMT = MMDDYY, the code word will be -1. In either 
case, the table contains month, day, and year in 
that order. The return code may be used to inform 
application programs of the standard date format 
that is desired for each particular system. 
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GETTIME 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px*)" on page 8 for 
further descriptions. 



Example 

GETTIME TAB,DATE=YES 



TAB 



000D 
0018 
0005 
000C 
0019 
004F 



( hours ) 
(mi nutes ) 
(seconds ) 
( month ) 
(day) 
(year ) 



This example is equivalent to 13* 24: 05 » on December 25 > 1979. 
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GETVALUE 



Terminal I/O 



GETVALUE is used to read one or more integer numeric values, or 
a single floating-point value, entered by the terminal opera- 
tor. The values may be decimal or hexadecimal, of single or 
double-precision or floating-point. If an invalid character 
is entered, it acts as a delimiter. The printing of an associ- 
ated prompt may be unconditional, or it may be conditional upon 
the absence of advance input. 



Syntax 



label 



Requ i red : 
Defaults : 



GETVALUE 



loc 



locpmsg, count, MODE = , PR OMPT=, 
FORMAT=,TYPE=,SKIP=, LINE=, 
SPACES=,P1=,P2=,P3= 



MODE=DEC,PROMPT=UNCOND,count=a (word) 
FORMAT=(6,0,I),TYPE=S 
SKIP=0,LINE=current 1 i ne , SPACE S=0 
Indexable: locpmsg, SKIP, LINE, SPACES 



Operands Descr i pt i on 

loc Name of the variable to receive the input value. If 
the number of values requested is greater than one, 
then successive values are stored in successive 
words or doublewords. 



pmsg 



count 



Name of a TEXT statement or an explicit text message 
enclosed in apostrophes. This defines the prompt- 
ing message which will be issued according to the 
value of the PROMPT keyword. 

Specify the number of integer values to be entered. 
The precision specification may be substituted for 
the count specification, in which case the count 
defaults to 1, or it may accompany the count in the 
form of a sublist: C count , prec i s i on ) . 
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GETVALUE 



With conditional prompting in effect* the absence 
of advance input causes the prompt message to be 
issued. Once a prompt message has been issued, how- 
ever* zero or more values may be entered. Omitted 
values leave the corresponding internal variables 
unchanged. Permitted delimiters between values are 
the characters slash* comma, period, or blank. At 
completion of the instruction, the number of values 
entered is stored at taskname+2 . 






MODE = 



Use MODE=HEX for hexadecimal input. 
(MODE=DEC) is decimal. 



The default 



PROMPT= Code PROMPT=COND or 
i s the default ) 



PROMPT=UNCOND ( PROMPT=UNCOND 



FORMAT= This parameter is used to specify external 
formatting for the input of a single value. The 
count parameter is ignored. The format is speci- 
fied as a 3-element list (w,d,f), defined as fol- 
lows : 



A decimal value equal to the maximum field 
width in bytes expected from the terminal. 

A decimal value equal to the number of bytes 
to the right of an assumed decimal point. (An 
actual decimal point in the input will over- 
ride this specification.) For integer vari- 
ables, code this value as zero. 






Format of the input data 



integer 



floating-point F format 



floating-point E format 



TYPE = 



Use this operand only in conjunction with FORMAT=. 



SKIP = 



S Single-precision integer (1 word) 

D Double-precision integer (2 words) 

F Single-precision floating-point (2 words) 

L Extended-precision floating-point (4 words) 

The number of lines to be skipped before the next 
operation. If a current concatenated line has not 
been written, then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size 
(BOTM-TOPM-NHIST) , then it is divided by the page 



V»/ 
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size* and the remainder 
sk i pped . 



GETVALUE 



is the number of lines 



LINE = 



This operand is used to specify the line at which 
the next I/O operation will take place. Code a num- 
ber between and the number of the last usable line 
on the page (BOTM-TOPM-NHIST) . For hardcopy 
devices or roll screens* if the value specified is 
less than or equal to the current line number* then 
the forms will move to the specified line on the 
next page* otherwise to that line on the current 
page. In any case* if the value exceeds the last 
usable line number* then it is divided by the log- 
ical page size* and the remainder is used as the 
1 i ne number . 



SPACES* These parameters may be used to specify the 
location within the logical page at which input is 
to begin* if that location differs from the current 
1 i ne and i ndent . 






Px = 



Example 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



GETVALUE DATA, MESSAGE 

GETVALUE DATA2 * f 3ENTER A: » , PROMPT=COND 

GETVALUE DAT A3 , MSG , 5 , MODE =H EX 



MESSAGE 


TEXT 


•ENTER YOUR ^ 


^GE f 


MSG 


TEXT 


'DATA: • 




DATA 


DATA 


F'0» 




DATA2 


DATA 


F'O' 




DATA3 


DATA 


5F f f 
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GIN 



Graphi cs 



GIN provides interactive graphical input. It rings the bell* 
displays cross-hairs* waits for the operator to position the 
cross-hairs and key in any single character* returns the coor- 
dinates of the cross- hair cursor* and optionally returns the 
character entered by the user. Cursor coordinates are 
unsealed. The PLOTGIN instruction obtains coordinates scaled 
by the use of a PLOTCB control block. (See "PLOTGIN" on page 210 
for the format of a PLOTCB). 



Syntax 



label 



GIN 



x,y,char,Pl=,P2=,P3= 



Requ i red '* x » y 

Defaults? no character returned 

Indexable: none 



/f '\ 



Operands Descr i pt i on 

x»y Locations for storage of coordinates of the cursor. 

char Location where character is to be stored. The 
character is stored in the right-hand byte? the 
left byte will be set to zero. If omitted* the char- 
acter is not stored. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 
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GOTO 



Program Sequencing 



GOTO is an unconditional branch to another instruction or a 
list of instructions from which a selection is made as a func- 
tion of a specified index value (computed GOTO). The 
instruction branched to must be on a full-word boundary. 



Examples using GOTO are shown 
described later in this chapter. 

Syntax 



under the IF instruction 



label 
label 



GOTO loc,Pl= 

GOTO ( locO, loci t loc2, . 



. t locn ) , index, P1=,P2= 



Requ i red : loc 
Defaults: none 
Indexable : i ndex 



Operands Descr i pt i on 

loc The address of the instruction to be executed after 
the unconditional branch. If loc is enclosed in 
parentheses, the GOTO is indirect and the address 
of the next instruction is determined by the 
contents of loc . 



locO 



The address of the instruction to be executed if the 
index value for a computed GOTO is not in the range 
1 to n . 



locl,loc2,...,locn A list of instruction addresses. The 
address selected will be a function of the value of 
the i ndex field. 



i ndex 



The address of an index variable (single-precision 
value) whose value is to be used to select the tar- 
get address for the branch. The number of loc 
instruction addresses +1 must not exceed 50. 
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GOTO 



Px = 



Example; 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px = ) ,f on page 8 for 
further descriptions. 






GOTO 
GOTO 



LOCO 
(LOCI) 



GOTO (ERR, LI, L2), I 



Branch to LOCO 
Branch to location 

by LOCI 

Computed GOTO based on 

If I is 1 , branch 

If I is 2, branch 

Otherwise, branch 



address defined 

value ' I f . 
to LI. 
to L2. 
to ERR. 
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IDCB 



IDCB 



EXIO Control 



IDCB is used to create a standard immediate device control 
block . 



Syntax 



label 



IDCB COMMAND=,ADDR ESS*, DCB=, DATA*, 
M0D4=, LEVEL*, IBIT* 



Required: label , COMMAND* , ADDRESS* 
Defaults: LEVEL* 1 , IBIT=ON 
Indexable: not applicable 



Operands Descr i pt i on 

COMMAND* The specific I/O operation. Code one of the 
following keywords shown below. The resulting 
hexadecimal command code is shown in parentheses. 
An x represents a character that is filled in by the 
value specified by M0D4. 



READ - Transfer a byte or word (Ox) 

from the device 
READ1 - Same as READ plus Clx) 

function bit set 
READID - Read the device (20) 

identification word 
RSTATUS - Read the device status (2x) 

WRITE - Transfer a byte or word (4x) 

to the dev i ce 
WRITE1 - Same as WRITE plus (5x) 

function bit set 
PREPARE - Prepare the device (60) 

CONTROL - Initiate a control (6x) 
action to the device 
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IDCB 



RESET - Initiate a device (6F) 

reset operation 
START - Initiate a cycle (7x) 

steal operation 
SCSS - Initiate a start cycle (7F) 

steal status operation 

ADDRESS* The device address as two hexadecimal digits. 

DCB= The label of a DCB. 

DATA= The data word to be transferred to the device by a 
WRITE, WRITE1, or CONTROL command. Code the actual 
data as four hexadecimal digits. 

M0D4 = A four bit device dependent value that modifies the 
command code specified by the COMMAND code. Code 
one hexadecimal digit. 

LEVEL= The hardware interrupt level to be assigned to the 
device by a PREPARE command. 

IBIT= Code ON or OFF to indicate whether the device is to 
have the ability to present an interrupt. 

Note : Refer to the description manual for the 
processor in use for more information on IDCBs. 

Examp le 

IDCB1 IDCB COMMAND=WRITE1,ADDRESS=00,DATA=0041 

PREPIDCB IDCB COMMAND=PREPARE , ADDRESS=E4 , LEVEL=3 , IBIT=ON 

WR1IDCB IDCB C0MMAND=START,ADDRESS=E1,DCB=WR1DCB 
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IF 



IF 



Program Sequencing 



IF determines whether a relational statement or statement 
string is true or false, and then branches to a user specified 
address or passes control to true code or false code within the 
IF-ELSE structure. 

Note : Because IF, ELSE, and ENDIF are usually coded together, 
the ELSE and ENDIF instructions are repeated here for your con- 
ven i ence . 

Syntax 



label 
label 



IF statement 

IF statement, GOTO, loc 



Required: one relational statement 

Defaults: none 

Indexable: datal and d a t a 2 in each statement 



Operands 



Descr i pt i on 



statement A relational statement or statement string 
indicating the relationship(s) to be tested. Each 
statement is enclosed in parentheses. If GOTO is 
coded and the statement is true, the next 
instruction executed is defined by loc. If GOTO is 
not coded* THEN is assumed and the next instruction 
is determined by the IF-ELSE-ENDIF structure. If 
the condition is true, execution proceeds sequen- 
tially. The various forms of relational statements 
are fully described following "Program Sequencing 
Instructions" on page 34 and a number of examples 
are shown below . 



GOTO 



If the statement is true and GOTO is coded, control 
is passed to the instruction at loc. If the state- 
ment is false, execution proceeds sequentially. 
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IF 



loc 



Used with GOTO to specify the address of the 
instruction to be executed if the statement is 
true. The instruction must be on a full-word bound- 
ary . 



o 



Note : THEN can be coded after statement. This may 
be desired to comment the instruction for program 
readability. 



ELSE 



ELSE defines the start of the false code associated with the 
preceding IF instruction. The end of the false code is the next 
ENDIF instruction. 



Syntax 



label 

R e q u i r e d J 
Defaults ' 



ELSE 

none 
none 



Indexab le : none 



1 ' J 



ENDIF 



ENDIF indicates the end of an IF-ELSE structure. If ELSE is 
coded, ENDIF indicates the end of the false code associated 
with the preceding IF instruction. If ELSE was not coded, 
ENDIF indicates the end of the true code associated with the 
preceding IF instruction. 
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Syntax 



if 



label 



ENDIF 



Required: none 
Defaults? none 
Indexable: none 






Examples, Of IF r ElSEy and ENPXF 

1. IF with GOTO 

IF (A,EQ,B),GOTO,ANEB 

2, Single IF 

IF (C,NE,D) or IF 
: 

: (execute if C NE D) 
ENDIF 

3, IF Nith ELSE 

IF (#1,EQ,1) 

J (execute if #1 EQ 1) 
ELSE 

: (execute if #1 NE 1) 
ENDIF 

4. Double IF with ELSE 



IF 



(A,EQ,B),AND,(C,EQ,D) 



: 



(C,NE,D),THEN 



i (execute if A EQ B and C EQ D) 
ELSE 

: (execute if either A NE B or C NE D) 
ENDIF 
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5. IF with nesting 

IF (A,EQ,B) 
xl 
IF (X,GT,Y) 

x2 
ENDIF 
x3 
ELSE 

x4 
ENDIF 



If A equals B and X is 
greater than Y , instructions 
xl, x2> and x3 will be executed. 
If A equals B, but X is not 
greater than Y, instructions xl 
and x3 are executed. If A does 
not equal B, only instruction x4 
is executed. 



Examples of relational statements 
Relational statement Comments 



C A, EQ, 0) A equ 

(A,NE,B) A not 

( DATA 1,LT,DATA2, WORD) DATA1 

(CHAR,EQ,C , A f ,BYTE) CHAR 

(XVAL,GT,Y, DWORD) XVAL 

((A,#1),EQ,1) (A,#l 

((Al,#l) ,LE, (Bl,#2)) (Al,# 

C#1,EQ,1) #1 eq 

(#1,GT,#2) #1 gr 

((C,#2),EQ,CHAR,BYTE) (C,#2 

(A,EQ,B,8) A equ 

((BUF,#1),NE,DATA,3) (BUF, 

(F1,GT,0, FLOAT) Fl gr 

(L2,LT,L3,DFL0AT) L2 le 

((BUF,#1) ,LE,1, FLOAT) (BUF, 



al to 0, WORD 

equal to B, WORD 

less than DATA2, WORD 
equal to 'A', BYTE 
greater than Y, DWORD 
) equal to 1, WORD 
1) LE (Bl,#2), WORD 
ual to 1, WORD 
eater than #2, WORD 
) equal to CHAR, BYTE 
al to B, 8 bytes 
#1) not equal to DATA, 3 bytes 
eater than 0, FLOAT 
ss than L3, EXTENDED FLOAT 
#1) less than or equal 1, FLOAT 



,4 "-\. 



Examples of relational statement strings 

(A,EQ,B),AND, (A,EQ,C) 

(A,NE,1) ,0R, (D,EQ,E, DWORD) ,AND, (#1,NE,14) 

(F,EQ,G,8),AND,C#1,EQ,#2),AND, ( X , EQ , 1 ), OR ,( RESULT , GT, ) 
CDATA,EQ,C'/' ,BYTE) ,OR, ( DATA , EQ , C ' * ' ,BYTE) 
((BUF,#1),NE, (BUF, #2)), OR, C#1,EQ,#2) 
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INTIME 



INTIME 



Timing 



INTIME is used to provide the user with two forms of interval 
timing information, reltime and loc. The first, reltime, is a 
2-word area in the your program where INTIME will store a value 
each time an INTIME is executed. This value is equal to the 
elapsed time since system IPL. This count is expressed in 
milliseconds and is in double precision integer format. The 
maximum value for reltime will be reached in approximately 49 
days of continuous operation and the counter will then roll 
over to . 

The second, loc, is a single-precision integer variable where 
INTIME will store the time in milliseconds since the previous 
execution of an INTIME instruction in this task. The maximum 
interval between calls to INTIME (that is, the maximum value 
that can be stored at loc) is 65535 milliseconds or 65.535 sec- 
onds . 

Syntax 



label INTIME relt i me , loc , INDEX , P2= 

Required: reltime,loc 

Defaults: no indexing 

Indexable: loc 



Operands 
relt i me 



loc 



Descr i pt i on 

The address of a 2-word table where a relative time 
marker may be stored. This field should be defined 
by DATA 2F , 0'. The relative time marker is a 
double-precision count, in milliseconds, which 
indicates the relative time at which the last 
INTIME was issued. It should be initialized to 0. 
Proper use of this parameter allows you to measure 
different intervals from the same origin in time. 

Buffer address or location where interval time data 
is to be stored. Nhen reltime = 0, as after 
initialization, the first interval returned will 
also be . 



Chapter 3. Instruction and Statement Descriptions 



181 



INTIME 



INDEX 



Automatic indexing 
must be defined by 
used . 



is to be used. The operand loc 
i BUFFER statement when INDEX is 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 fpr 
further descriptions. 



Note t Each task in each program in the system has available to 
it one software driven timer which operates with a precision of 
1 millisecond. The STIMER instruction is used to operate this 
t i mer in any task . 
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IOCB 



Terminal I/O 



IOCB defines a terminal name and configuration parameters for 
use with the ENQT instruction. Additional information on the 
configuration parameters can be found under the TERMINAL sys- 
tem configuration statement in the System Gu i de 



Syntax 



label 



Requ i red J 
Defaults : 
Indexable : 



IOCB name,PAGSIZE=,TOPM=,BOTM=,LEFTM=, 

RI GHTM=, SCR EEN=,NH I ST=,OVFLINE=, BUFFER 



none 

see d i scuss i on 

none 



below 









Operands Description 

name The name of a terminal as defined by the label on a 
TERMINAL statement. See the System Configuration 
section of the System Guide for a description of 
the TERMINAL statement. This operand generates an 
8-character EBCDIC string, padded as necessary with 
blanks, whose label is the label on the IOCB state- 
ment. It may therefore be modified by the program. 
If unspecified, the string is blank and implicitly 
refers to the terminal from which the program was 
loaded . 

PAGSIZE= This operand is as defined for the TERMINAL 
statement. Its default is the value assigned in 
that statement. 

TOPM = As defined for TERMINAL. The default is 0. 

B0TM = As defined for TERMINAL. The default is PAGSIZE-1. 

LEFTM= As defined for TERMINAL. The default is 0. 

RIGHTM= As defined for TERMINAL. The default is LINSIZE-1. 
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IOCB 



SCREEN= 



Either SCREEN=ROLL or SCREEN=STATIC , as defined for 
TERMINAL. The default is ROLL. 



o 



NHIST* 

OVFLINE 

BUFFERS 



As defined for TERMINAL. The default is 0. 
As defined for TERMINAL. The default is NO. 




If the temporary buffer is not directly addressed 
by a terminal I/O instruction* then it acts as a 
normal system buffer of size RIGHTM+l; it may also 
be used, however, for direct terminal I/O. Direct 
terminal I/O occurs when the buffer defined by an 
active IOCB is directly addressed by a PRINTEXT or 
READTEXT instruction; the data is transferred imme- 
diately and the new line character is not recog- 
nized. When performing direct output operations the 
user must insert the output character count in the 
index word of the BUFFER prior to the PRINTEXT (out- 
put) instruction. This mode of operation allows the 
transfer of large blocks (larger than can be accom- 
modated by a TEXT buffer) of data to and from buf- 
fered devices such as the 4978/4979 Display or 
buffered teletypewriter terminals. Upon execution 
of DEQT, the buffer defined by the TERMINAL state- 
ment i s restored . 
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IODEF 



IODEF 



Sensor Based I/O 



IODEF is used to provide addressability for the Sensor Based 
I/O facilities which are referenced symbolically in an appli- 
cation program. The specific form used varies with the type of 
I/O being specified as shown below. 

All IODEF statements of the same form (AI, AO, DI, DO, or PI) 
must be grouped together in the program and must be placed 
ahead of the SBIO instructions that reference them. 

Each IODEF statement creates an SBIOCB control block. The con- 
tents of the SBIOCB is described in the Internal Pes i on . 

The remainder of this description is divided into five parts to 
show the syntax for PI,DO,DI,AO, and AI . Because the operand 
definitions are common they are shown only once following the 
AI syntax . 

Syntax 



Process Interrupt 



label IODEF PI x , ADDRESS* , BIT =, SPECP I = 

or ADDRESS=,TYPE=BIT,BIT=,SPECPI= 
or ADDRESS=,TYPE=GROUP,SPECPI= 
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IODEF 



Digital Output 



label 



Syntax 



IODEF DOx,TYPE=GROUP,ADDRESS= 

or TYPE=SUBGROUP,ADDRESS=,BITS=(u,v) 



Digital Input 



label IODEF DI x , TYPE=GROUP , ADDRESS* 

or TYPE=SUBGROUP,ADDRESS=,BITS=Cu,v) 
or TYPE=EXTSYNC,ADDRESS= 



Analog Output 



\.-^ 



label IODEF AOx , ADDRESS= , POINT 
Defaults: POINT=0 



186 SC34-0314 



^^^r 



IODEF 



Syntax 



label 



IODEF AIx, ADDRESS*, POINT=,RANGE=,ZCOR= 



Required: All 

Defaults: RANGE=5V,ZCOR*NO 



Operands 



PIx 



DOx 



DIx 



AOx 



AIx 



PesgriptlP" 

Note : The following operand descriptions apply 
the five forms of IODEF as previously shown: 



to 



Process Interrupt. Operand x specifies a symbolic 
reference number used within an application pro- 
gram; range * 1-99. If multiple IODEF PIx state- 
ments are included in the program, they must be 
grouped together. 

Digital Output. Operand x specifies a symbolic 
reference number used within an application pro- 
gram; range = 1-99. If multiple IODEF DOx state- 
ments are included in the program, they must be 
grouped together. 

Digital Input. Operand x specifies a symbolic 
reference number used within an application pro- 
gram; range = 1-99. If multiple IODEF DIx state- 
ments are included in the program, they must be 
grouped together. 

Analog Output. Operand x specifies a symbolic 
reference number used within an application pro- 
gram; range = 1-99. If multiple IODEF AOx state- 
ments are included in the program, they must be 
grouped together. 

Analog Input. Operand x specifies a symbolic 
reference number used within an application pro- 
gram; range = 1-99. If multiple IODEF AIx state- 
ments are included in the program, they must be 
grouped together. 



Chapter 3. Instruction and Statement Descriptions 187 



IODEF 



TYPE = 



GROUP The complete DI/DO/PI group participates 
in the I/O operation. See SPECPI below if 
PI is specified as GROUP. DI operates in 
unlatched mode . 

SUBGROUP A subset of the 16-bit group will be used 
in the I/O operations. For output oper- 
ations* all bits not part of the speci- 
fied subgroup will remain unchanged. For 
input* the subgroup will be stored 
right-adjusted in input word with all 
high order bits set to zero. DI operates 
in unlatched mode. 



BIT 



Spec i f i ed for 
SPECPI below) . 



a user PI bit only (see 



ADDRESS* 



BITS=(u,v) 



EXTSYNC Specified when using the hardware 
external synchronization feature for DI 
or DO. A count field must be specified on 
associated SBIO instructions. EXTSYNC 
also implies latched DI operation mode. 

Specify the two-digit hexadecimal address. 

This parameter indicates a portion of a group 
starting at bit u (u = to 15) for a length v (v = 1 
to 16-u). This operand is used only when 
TYPE=SUBGROUP is specified for DI or DO. Note that 
it is possible to specify a 16-bit wide subgroup* 
although it is probably more meaningful in that 
case to define a normal group and specify a 
substring in certain I/O cases. 



/if ^ 



BIT* 



A number 
for PI. 



from 0-15 specifying the bit to be used 



POINT* 



Spec i f y the 
- 1 for AO, 
sol i d state 



analog output or input point. Point = 
and 0-7 for AI relay or - 15 for AI 



RANGE* 



Specify the range for the mult i range amplifier. 



5V 


= 


5 VOLTS 




500MV 


= 


500 


Mi 


11 


i volts 


200MV 


= 


200 






ff 


100MV 


= 


100 






ff 


50MV 


= 


50 






ft 


20MV 


= 


20 






IT 


10MV 


= 


10 






If 
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ZCOR = 



IODEF 



This parameter allows the zero correction facility 
of AI to be used. Specify f YES f to use zero cor- 
rection* the default is 'NO*. 



SPECPI= Identifies the label of the first instruction of a 
special process interrupt routine. See SPECPI 
be low . 

Example 

IODEF PI1,ADDRESS=48,BIT=2 

IODEF PI2,ADDRESS=49,BIT=15 

IODEF D01,TYPE=GR0UP,ADDRESS=4B 

IODEF D02,TYPE=EXTSYNC,ADDRESS=4A 

IODEF DI1,TYPE=GR0UP,ADDRESS=4 9 

IODEF AI1,ADDRESS=72,POINT=1,RANGE=50MV,ZCOR=YES 

IODEF A02,ADDRESS=7 5,P0INT=1 



o 



In this example* two process interrupts are defined* a digital 
output group* a digital output group as external sync* a dig- 
ital input group* an analog input point* and an analog output 
point. 

The SBIO instruction is used to reference the digital and ana- 
log I/O points as described under the SBIO instruction. Proc- 
ess interrupt are referenced by the POST and WAIT instructions 
and are described under the respective instruction. Further 
examples of IODEF statements are shown following the SBIO 
instruction. 



SPECPI - Process Interrupt User Routine 



The SPECPI option of the IODEF statement may be used to define a 
special process interrupt routine. The supervisor will exe- 
cute a routine written in Series/1 assembler language when the 
defined interrupt occurs. The purpose is to provide the mini- 
mum delay before service of the interrupt* by bypassing the 
normal supervisor interrupt servicing. Multiple special proc- 
ess interrupt routines are allowed in a program. 

TYPE=BIT Control is given to the specified routine when, 
and only when* an interrupt occurs on the speci- 
fied bit. On return to the supervisor* the con- 
tents of Rl must be the same at entry to the user's 



routine and RO must contain either 



or a POST 



code. In the latter case* R3 must contain the 
address of an ECB to be posted by the POST 
instruction. Register 7 contains the supervisor 
return address upon entry. If the user routine is 
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IODEF 



TYPE=GROUP 



In partition 1, the return to the supervisor may be 
accomplished using BXS (R7). Otherwise return must 
be made by use of the SPECPIRT instruction. 
SPECPIRT can also be used in partition 1. The val- 
ue that is in R7 upon entry may be used to return to 
the supervisor using BXS (R7) only if the user rou- 
tine is in partition 1. 

Control is given to the specified routine if any 
bit in the PI group occurs. The user's routine is 
entered as quickly as possible. The PI group is not 
read or reset; this is the user routine's respon- 
sibility. Return to the supervisor is done with a 
branch to the entry point SUPEXIT. The module 
$EDXATSR must be included with the PROGRAM to use 
SUPEXIT. If interrupt is processed on level 0, the 
routine may issue a Series/1 hardware exit level 
instruction (LEX) instead of returning to SUPEXIT. 
This will improve performance significantly. 

Note : Use of TYPE*GR0UP requires that you be familiar with the 
operation of the Series/1 process interrupt feature. Your rou- 
tine must contain all instructions necessary to read and reset 
the referenced process interrupt group. 

Example using special process interrupt bit 

IODEF PI2,ADDRESS=48,BIT=3,TYPE=BIT,SPECPI=FASTPI1 



W-...V 



FASTPU 



EQU 



MVW 



R1,SAVER1 



SAVE Rl 



MVA PI2,R3 

MVWI 3,R0 

MVN SAVER1,R1 
SPECPIRT 



PUT THE ADDRESS OF PI2 IN R3 

POSTING CODE IN RO 

RESTORE Rl 

RETURN TO SUPERVISOR 



Example of special process interrupt group 

IODEF PI6,ADDRESS=49,TYPE=GR0UP,SPECPI*FASTPI2 
FASTPI2 EQU * 
Control is given to the user at label FASTPI2. 



o 
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IOR 



IOR 



Data Manipulation 

IOR will logical OR operand 2 to operand 1* bit by bit. If 
either bit is one* the result is a one; if neither bit is one* 
the result bit will be zero. 

Syntax 



label 



IOR opndl ,opnd2 , count , RESULT= , 
P1=,P2=,P3= 



Required: opndl*opnd2 

Defaults: count= ( 1 , WORD ) RESULT=opndl 

Indexable: opndl » opnd2 , RESU LT 



Operands Descr i pt i on 

opndl The name of the variable to which 
applies; it cannot be a constant. 



the operat i on 



opnd2 



This operand identifies the bit string to be ORed 
with the first operand. Either the name of a vari- 
able or an explicit constant may be specified. 



count 



Specify the number of consecutive variables upon 
which the operation is to be performed. The maximum 
value allowed is 32767. 



The count operand can include the precision of the 
data. Because these operations are parallel (the 
two operands and the result are implicitly of like 
precision) only one precision specification is 
required. That specification may take one of the 
f ol lowi ng forms : 

BYTE — Byte precision 

WORD — Word precision (default) 

DWORD — Doubleword precision 






RESULT= This operand* which is optional* can be coded with 
the name of a variable or vector in which the result 
is to be placed. In this case the variable speci- 
fied by the first operand is not modified. 
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IOR 



Px = 



Example 



STRING 
ANS 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) tf on page 8 for 
further descriptions. 



IOR STRING, X'FO 08 f , RESULT* ANS 

DATA X'0F08 f binary 0000 1111 0000 1000 

DATA F f f binary zeros 



After execution of IOR, the variable ANS looks like this: 
ANS DATA X'FFOS' binary 1111 1111 0000 1000 



%^jr 
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LASTQ 



LASTQ 



Queue Processing 



LASTQ acquires entries from a queue* defined by DEFINEQ, on a 
last-i n-f i rst-out (LIFO) basis. Each time LASTQ is used, the 
last (most recent) entry is removed from the specified queue 
and returned to the user. The queue entry (QE) will then be 
added to the free chain of the queue. 



Syntax 



label 

Requ i red : 
Default : 
Indexable : 



LASTQ qname, loc, EMPTY=,P1=,P2= 

qname , loc 
none 
qname , loc 



Operands Description 

qname The name of the queue from which the entry is to be 
fetched. The queue name is the label on the DEFINEQ 
instruction used to create the queue. 



loc 



The address of one word of storage where the entry 
is placed. #1 or #2 can be used. 



EMPTY= Use this operand to specify the first instruction 
of the routine to be invoked if "queue empty" condi- 
tion is detected during the execution of this 
instruction. If this operand is not specified, 
control will be returned to the next instruction 
after the LASTQ and the user may test the task code 
word for a -1 indicating successful completion of 
the operation or a +1 if the queue is empty. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 






Examp le : See the example following the NEXTQ instructions. 
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LOAD 



LOAD 



O 



Task Control 



Note : Indexed Access Method LOAD is located under "LOAD" on 
page 344. 

The LOAD instruction is used in one program to initiate the 
loading of another main program or program overlay from the 
program library on disk or diskette. The loaded program will 
run in parallel with* and independently of, the loading pro- 
gram, regardless of whether it is a main program or an overlay. 

Data parameters and data set names may be passed to the loaded 
program. Also, the loading program may synchronize its own exe- 
cution with that of the loaded program. 

A program may be loaded in two ways: 

• As an independent program in its own contiguous storage 
area 

• As an overlay program within the storage area allocated for 
the loading program 

The advantages of the independent LOAD operation are: 

• Main storage is allocated only when required 

• More than one program may be loaded for simultaneous exe- 
cut i on 

The advantages of the overlay LOAD operation are: 

• The availability of main storage can be guaranteed by the 
loading program since it is within its own storage area 

• The loaded program will be brought into storage more quick- 
ly than by an independent LOAD 

The task code word of the loading task may be tested to deter- 
mine the result of the program load operation. The code word is 
referenced by the task name. The task code word of the initial 
task is the name of the program. If this word is -1 the oper- 
ation was successful. For the definition of error codes 
returned during the load process, see "Return Codes" later in 
this description. 



/r~ x 



x^ 



o 



194 SC34-0314 



^^mllljr 



LOAD 



As part of the LOAD function* a DEQT of the terminal currently 
in use by the loading program is performed. You should allow 
for this circumstance in coding the program which issues the 
LOAD instruction. 



Nhen a LOAD is executed for either an independent program or an 
overlay, the address of the currently active terminal of the 
loading program is stored in the program header of the program 
be i ng loaded . 

Syntax 



label 



label 



Requi red * 
Defaults : 
Indexable : 



LOAD progname »parmname » 

DS=(dsnamel, . . . ,dsname9),EVENT=, 
L0GMSG=*,PART=,ERR0R = ,ST0RAGE = ,P2 = 



or 



LOAD PGMx,parmname ,DS=(DSx , 
ERROR*, P2= 

progname or PGMx 

LOGMSG=YES,STORAGE=0 

none 



),EVENT=, 



Operands Description 

progname The 1-8 character name of a program stored in an 
Event Driven Executive library. The user may spec- 
ify a the volume from which to load the program by 
separating the program name, 1-8 characters, and 
the volume name, 1-6 characters, by a comma and 
enclosing in parentheses, for example, 
(PROGA, EDX003) . The program must reside on disk or 
d i skette . 



PGMx 



The parameter x is a digit from 1 to 9 specifying 
which of the overlay programs, defined in the PRO- 
GRAM statement, is to be loaded. PGMx is not valid 
with PART; overlay programs are loaded in space 
included with the loading program. 



parmname The symbolic label on the first word in a list of 
consecutive parameter words to be passed to the new 
program. (See the PROGRAM statement for specifica- 
tion of the length of this list.) 
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LOAD 



DS = 



LOGMSG= 



This parameter designates data sets to be passed to 
the loaded program. 

For a non-overlay program load* 1-9 data set names 
can be listed. These names are used to specify data 
set names at program load time. (See PROGRAM state- 
ment.) Data sets may also be specified in the form 
DSx where x is a digit from 1 to 9 which selects a 
data set defined in the PROGRAM statement of the 
loading program. This allows the definition of 
data sets to be passed to loaded programs to be 
deferred until the initial load time. 

For an overlay program load, specify DSx where x is 
a digit from 1 to 9 selecting data sets defined in 
the PROGRAM statement of the loading program. 

For example, in a non-overlay situation assume that 
the PROGRAM statement in the program to be loaded 
specified a data set list such as: 

DS=(PARMFILE,??, RESULTS) 
Then a statement 

LOAD progname,parmname,DS-(MYDATA) 
would yield a final list of 

DS=CPARMFILE,MYDATA,RESULTS) 

All unspecified data set names in the program being 
loaded must be resolved at LOAD time or the oper- 
ation will not be performed. If a tape data set is 
passed to another program using the LOAD statement* 
the loading programs DSCB will be disconnected from 
the tape data set. This allows the program being 
loaded to have access to the tape data set using the 
loading program's DSCB. When the program being 
loaded completes execution the tape data set will 
be closed. If the program that issued the LOAD needs 
to use the tape data set again, it will have to reo- 
pen the tape data set using the DSOPEN subroutine or 
SDISKUT3. 

Note : See the PROGRAM statement description for 
more information on data set specification. 

Specify either YES or NO to indicate whether a 
"PROGRAM LOADED" message is to be printed on the 
system logging terminal. The default is YES. 



o 



J 



o 
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EVENT= 



LOAD 



This is the symbolic name of an event (ECB 
statement) which is to be posted complete when the 
loaded program issues a PROGSTOP. 



By issuing a LOAD and a subsequent WAIT for this 
event* the loading program may synchronize its own 
execution with that of the loaded program. 

Figure 10 on page 200 shows the flow of control in 
the two ways of loading a program. 

Note i If this operand is specified* the loading 
program must ultimately WAIT for completion of the 
loaded program. If this is not done* a POST will be 
issued when the loaded program terminates even 
though the loading program may no longer be active* 
and unpredictable results can occur. 



PART = 



This optional operand is used to specify cross 
partition loading of a program in a system contain- 
ing more than 64K of storage. If PART is not coded* 
the program will be loaded in the same partition as 
the loading program. 



Code PART= f n f to specify the partition number into 
which to load the new program (n = 1 to 8). 

Code PART = ANY to load the new program in any avail- 
able partition. 

Code PARTs'label 1 to point to a word in storage 
which contains the partition number in which to 
load the new program. Zero in the word pointed to 
by label is the same as PART = ANY. 

PGMx is not valid with PART. 



ERROR* Use this operand to specify the label of the first 
instruction of the routine to be invoked if an error 
condition occurs during the load process. If not 
specified* control is returned to the instruction 
following the LOAD instruction and the user may 
test for errors by testing the return code stored at 
the taskname (see PROGRAM/TASK). 



STORAGE 3 Use this operand to override the value specified in 
the STORAGE operand coded on the PROGRAM statement 
of the program to be loaded. Some application pro- 
grams will have a minimum dynamic storage require- 
ment; be sure you know what it is before using this 
override. A value of means that the STORAGE value 
specified in the loaded programs header is not to be 
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LOAD 



overridden. STORAGE=0 is the default. 



2 = 



If the total storage required for the program and 
the dynamic increment is not available the LOAD 
request will fail. See the PROGRAM statement STOR- 
AGE operand for additional information on dynamic 
storage . 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 
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Return Codes 






Code Description 



-1 
61 

62 
63 
64 

65 



66 

67 

68 
69 
70 
71 
72 
73 

74 
75 
76 
77 
78 

79 

80 
81 

82 



Successful comp 
The trans i ent 1 
in the system 
In an overlay r 
In an over lay r 
No space a va i la 
In an overlay 1 
sets passed by 
the number requ 
In an overlay 1 
passed to the 1 
A disk or d i ske 
load process 
Reserved 
Reserved 
Not enough main 
Program not fou 
Disk or d i skett 
Disk or d i skett 
header 

Referenced modu 
Referenced modu 
Data set not fo 
Invalid data se 
LOAD instructio 
set(s) 

LOAD i nstruct i o 
parameters (s ) 
Inval i d volume 
Cross partition 
included at sys 
Requested parti 
partitions in t 



let i on 

oader ($LOADER) 



i s not i nc luded 



equest> no overlay area exists 

equest, the overlay area is in use 

ble for the transient loader 

oad operation* the number of data 

the LOAD instruction does not equal 

ired by the overlay program 

oad operation* no parameters were 

oaded program 

tte I/O error occurred during the 



storage available for the program 
nd on the specified volume 
e I/O error while reading directory 
e I/O error while reading program 

le is not a program 

le is not a data set 

und on referenced volume 

t name 

n did not specify required data 

n did not specify required 

label spec i f i ed 

LOAD requested* support was not 
gen 

tion number greater than number of 
he system 



Note ? If the program being loaded is a sensor I/O program* and 
a sensor I/O error is detected, the return code will be a sensor 
I/O return code, not a load return code. 
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LOAD 



Go 




Loading 



PROGRAM 



LOAD 



LOAD 



PROGRAM 



'in 




Independent 
program in its 
own storage area 



and 

independent 

execution 



Overlay program 
within storage area 
of loading program. 
Independent execution. 



\^,j^ 



Figure 10. Two Ways of Loading a Program 



o 
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MOVE 



MOVE 



Data Manipulation 



Operand 2 is moved to operand 1. If operand 2 is "immediate 
data"» it must be an integer between -32768 and +32767 which 
will be converted to floating point* if necessary. 

Syntax 



label 



Requ i red : 
Defaults : 
Indexable : 



MOVE opndl, opnd2,count,FKEY=,TKEY=, 
P1=,P2=,P3= 

opndl , opnd2 
count=(l,WORD) 
opndl , opnd2 



JT"\ 



Operands Descr i pt i on 

opndl The name of the variable to which 
applies; it cannot be a constant. 



the operation 



opnd2 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit constant can be specified. 



0pnd2 is moved to opndl. If opnd2 is immediate 
data, it must be an integer between -32768 and 
+32767 which will be converted to floating point, 
i f necessary . 



count 



Specify the number of consecutive variables upon 
which the operation is to be performed. A symbol 
cannot be used for count. The maximum value allowed 
for the count operand is 32767. 



Note t For all precisions other than BYTE, opndl and 
opnd2 must specify even addresses. 



The count operand can include the precision of the 
data. Since these operations are parallel (the two 
operands and the result are implicitly of like pre- 
cision) only one precision specification is 
required. That specification may take one of the 
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MOVE 



f ol lowi ng forms : 



o 



BYTE — Byte precision 

WORD — Word precision 

DWORD — Doubleword precision 

FLOAT — Single-precision floating-point 

DFLOAT — Extended-precision floating-point 



FKEY = 



TKEY = 



The default precision is WORD. 

The precision specification may be substituted for 
the count specification, in which case the count 
defaults to I, or it may accompany the count in the 
form of a sublist: (count , prec i s i on ) . For exam- 
ple, MOVE A, B, BYTE and MOVE A,B,(1,BYTE) are equiv- 
a lent . 

This operand provides a cross partition capability 
for opnd2 of MOVE. FKEY designates the address key 
of the partition containing opnd2 (The address key 
is one less than the partition number). FKEY can 
specify either an immediate value from to 7 or the 
label of a word containing a value from to 7. If 
FKEY is not specified, opnd2 is in the same parti- 
tion as the MOVE instruction. If FKEY is specified, 
opnd2 cannot be immediate data or an index regis- 
ter. However, it can contain an index register if in 
the (parameter , #r ) format. 



This 

for 

of t 

i s o 

spec 

labe 

TKEY 

part 

i f i e 

opnd 

form 



operand provides a cross partition capability 
opndl of MOVE. TKEY designates the address key 
he partition containing opndl (the address key 
ne less than the -partition. number). TKEY can 
ify either an immediate value from to 7 or the 
1 of a word containing a value from to 7. If 

is not specified, opndl must be in the same 
ition as the MOVE instruction. If TKEY is spec- 
d, opndl cannot be an index register. However, 
1 can contain an index register if it is of the 
at (parameter , #r ) . 






If TKEY is specified and opnd2 is immediate data, 
the immediate data is always 1 word in length 
regardless of any precision specification. Howev- 
er, a precision specification plus length is used 
in determining the total amount of data to be moved. 
Refer to Address Indexing Feature for further 
i nf or mat i on . 



Note : Refer to the System Guide topic on 
"Cross-Partition Services" for additional informa- 
tion on the use of cross-partitions functions. 



o 
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Px = 



ExpptR.lg 



MOVE 



Parameter naming operands. See "Use of ThjB 
Parameter Naming Operands (Px=)" on page 8 for 
furtherdescriptions. , 



^|jy^F 



MOVE 
MOVE 

MOVE 
MOVE 
MOVE 

MOVE 
MOVE 

MOVE 

MOVE 

MOVE 

MOVE 



A,B 

TEXT,c» f , (64, BYTE) 

V1,V2,16 
SAVE,#1 
#2, INDEX 

D,C, (4, DWORD) 
F2,F1, (1, FLOAT) 

LR,L1, (6,DFLOAT) 

(BUF,#1), 0,(10, FLOAT) 

HERE,$START,FKEY=0 

(0,#1),#2,TKEY=KEY 



MOVE 



($NAME,#1),C ', 
(8,BYTES),TKEY=0 



move word, B to A 

move EBCDIC blank to 
64-byte field 

move V2 to VI, 16 words 

index register 1 to SAVE 

set index register 2 
from INDEX 

C to D, 4 doublewords 

Fl to F2, single-precision 
float i ng-po i nt 

LI to LR, 6 extended float- 
ing point numbers (24 words) 

10 floating-point zero values* 
to starting address (BUF,#1) l 

move one word from $START in 
partition one to HERE 

move contents of #2 to a 
word in another partition 
at the address specified 

by #1 ' 

moves blanks into $NAME field 
in partition 1 (opnd2 must be 
a word immediate value) 
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MOVEA 
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Data Manipulation 



The address of operand 2 is moved to operand 1. 
Syntax 



label 

Requ i red J 
Defaults J 



MOVEA 



opndl, opnd2»Pl = ,P2 = 



opndl f opnd2 
none 



Indexable: opndl 



Operands 

opndl 
opnd2 
Px = 

Example 



Description 

The name of the variable in which the address of 
opnd2 i s stored . 

This operand determines the address value that is 
placed i n opndl . 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) ,f on page 8 for 
further descriptions. 



/f"A 



MOVEA PTR,A 
MOVEA PTR,B+4 



move address of A into PTR 
move address of (B)+4 into PTR 
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MULTIPLY 



MULTIPLY 



Data Manipulation 



Signed multiplication of operand 1 by 
instruction may be abbreviated MULT. 



operand 



The 



Note : An overflow condition is not indicated by EDX. 

Syntax 



label 



MULTIPLY opnd l,opnd2, count, RESULT*, PR EC=, 
P1=,P2=,P3= 



Required: opndl,opnd2 

Defaults: count = 1 , RESULT = opndl , PR EOS 

Indexable: opndl , opnd2 , RESULT 



o 



Operands 

opndl 
opnd2 

count 

RESULT= 



PREC=XYZ 



Descr i ot i on 

The name of the variable to which 
applies; it cannot be a constant. 



the operation 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit constant may be specified. 

Specify the number of consecutive variables upon 
which the operation is to be performed. The maximum 
value allowed is 32767. 

This operand may optionally be coded with the name 
of a variable or vector in which the result is to be 
placed. In this case the variable specified by the 
first operand is not modified. 

Where X applies to opndl, Y to opnd2, and Z to the 
result. The value may be either S (single- 
precision) or D (double-precision). 3-operand 
specification may be abbreviated according to the 
f ol lowi ng rules : 
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MULTIPLY 



If no precision is specified* then all operands 
are single-precision. 



If a single letter (S or D) is specified, then 
it applies to the first operand and result, 
with the second operand defaulted to single- 
prec i s i on . 

If two letters are specified, then the first 
applies to the first operand and result, and 
the second to the second operand. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Mixed-precision Operations ? Allowable precision combinations 
for multiply operations are listed in the following table: 



opndl 



opnd2 



Result 



Abbreviation 



Remarks 



S 

SSD 
D 
DD 



default 






Example 



MULT C,D,RESULT=E,PREC=SSD 
MULT A,1Q,PREC=D 



double-precision product 
double precision variable 
is multiplied by 10 



MULT 



X,10,2 



the single-precision variables 
at X and X+2 are each 
multiplied by 10. 



o 
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NEXTQ 



NEXTQ 



Queue Processing 



NEXTQ allows the user to add entries to a queue defined by 
DEFINEQ. A queue element (QE) is removed from the free chain of 
the queue and placed in the active queue. 

Syntax 



label 

Requ i red : 
Default: 
Indexable : 



NEXTQ qname, loc, FULL=,P1=,P2= 

qname , loc 
none 
qname > loc 



Operands 
qname 

loc 



FULL = 



Px = 



Descr i pt i on 

The name of the queue in which to place the entry. 
The queue name is the label on the DEFINEQ 
instruction used to create the queue. 

The address of one word of storage which will become 
an entry in the queue. This might be a single word 
of data or the address of an associated data area. 
If loc is coded as * # 1 * or f # 2 ' then the contents of 
the selected register will become the entry in the 
queue . 

Use this operand to specify the first instruction 
of the routine to be invoked if a "queue full" con- 
dition is detected during the execution of this 
instruction. If this operand is not specified* 
control will be returned to the next instruction 
after the NEXTQ and the user may test the task code 
word for a -1 indicating successful completion of 
the operation or a +1 if the queue is full. 



Parameter naming operands. See 
Parameter Naming Operands (Px=)" 
further descriptions. 



"Use of The 
on page 8 for 
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NEXTQ 



Queuing Instructions Programming Example 



V. 



In the following example all queuing instructions are used. A 
buffer pool is defined which contains 4 six word buffers. A 
buffer is obtained* GETTIME is executed and the resulting time 
is queued. The resulting time is stored in the obtained buff- 
er. When all buffers are allocated, the queue entries are 
printed on a first-in-first-out basis* then on a last-in- 
last-out basis, and the buffers used are freed. Each buffer 
pool/queue instruction is executed 8 times. 

QTEST PROGRAM START 

* EXAMPLE USING QUEUING INSTRUCTIONS 
* 

START FIRSTQ TIMEBUF,LOC 

IF (QTEST,EQ,1), GOTO, EMPTY 

GETTIME *,DATE=YES,P1=L0C 

NEXTQ TIMEQ1,L0C,FULL=ERR0R1 

NEXTQ TIMEQ2,L0C,FULL=ERR0R1 

ADD CTR,1 

GOTO START 



EMPTY FIRSTQ TIMEQ1 , OUTADDR 1 , EMPTY=CHKCTR 

LASTQ TIMEQ2,0UTADDR2,EMPTY=CHKCTR 

ENQT $SYSPRTR 

PRINTEXT SKIP=1 

PRINTNUM *,6,6,P1=0UTADDR1 

PRINTEXT SPACES=5 

PRINTNUM *,6,6,P1=0UTADDR2 
DEQT 

NEXTQ TIMEBUF,0UTADDR1 

GOTO EMPTY 



v..y 



CHKCTR 

ERR0R1 
DONE 



IF 

GOTO 

PRINTEXT 
PROGSTOP 



(CTR,GE,8),G0T0,D0NE 

START 

'3TIMEQ PREMATURELY FULLS' 



* DATA 

TIMEBUF 

TIMEQ1 

TIMEQ2 

CTR 



AREA 
DEFINEQ 
DEFINEQ 
DEFINEQ 
DATA 
ENDPROG 
END 



C0UNT=4,SIZE=12 
COUNT=10 
COUNT=10 
F f f 



\^J 



208 SC34-0314 



NOTE 



NOTE 



Disk/Tape I/O 



NOTE causes the value of a data set's next-record-pointer, 
which is maintained by the system* to be stored in your pro- 
gram. The next-record-pointer is the relative record number 
that will be retrieved by the next sequential READ or WRITE. 



Syntax 



label 

Requ i red : 
Defaults : 



NOTE DSx,loc,P2= 

DSx, loc 
none 



Indexable: loc 



Operands Descr i pt i on 

DSx Operand x specifies the relative data set number in 
a list of data sets defined by the user in the PRO- 
GRAM statement. The first data set is DS1, the sec- 
ond is DS2» and so on. A DSCB name defined by a DSCB 
statement may be used in place of DSx. 



loc 



The address of a full word of storage that will 
contain the next record pointer* after NOTE is exe- 
cuted. This value can be used as the relative record 
number (relrecno) in a subsequent POINT or direct 
READ/WRITE operation. 



P2 = 



Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px-)" on page 8 for further 
descr i pt i ons . 
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PLOTGIN 



PLOTGIN 



A J 



Graphics 



PLOTGIN provides interactive reading of values of data on 
curves plotted on screens. The bell is rung and the cross-hair 
cursor is displayed. The program waits for the user to position 
the cross-hairs and key any character. That character and the 
cursor coordinates* scaled by use of the PLOTCB, are obtained 
for use by the program. 



Syntax 



label 



PLOTGIN x,y,char,pcb,Pl=,P2=,P3=,P4= 



Required: x , y > p c b 

Defaults? no character returned 

Indexable: none 



Operands Descr i pt i on 

x»y Locations for storage of x and y cursor coordinate 
values . 



X„>" 



char 



Location where character is to be stored. The 
character is stored in the right-hand byte; the 
left byte will be set to zero. If omitted* the char- 
acter is not stored. 



pcb 
Px = 



Label of an 8-word Plot Control Block. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands ( P x = ) " on page 8 for 
further descriptions. 



Plot Control Block 



PLOTCB (Plot Control Block) data areas are required by the 
PLOTGIN, XYPLOT, and YTPLOT instructions. 
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PLOTGIN 



The plot control block is 8 words of data defined by DATA state- 
ments which provide definition of size and position of the plot 
area on the screen and the data values associated with the 
edges of the plot area. Indirectly* the scale of the plot is 
specified. The format of a PLOTCB is: 



label 


DATA 


F'xls* 




DATA 


F • xrs • 




DATA 


F f xlv f 




DATA 


F f xr v • 




DATA 


F'ybs' 




DATA 


F'yts 1 




DATA 


F'ybv' 




DATA 


F ■ yt v ' 



^P"''iV 



All 8 explicit values (no addresses) are required and are 
explained in the text following: 



JLLa 



xrs 



xjv 



xrv 



vbs 
vtv 



x screen location at left edge of plot area 
x screen location at right edge of plot area 
x data value plotted at left edge of plot 
x data value plotted at right edge of plot 
y screen location at bottom edge of plot 
y screen location at top edge of plot 
y data value plotted at bottom edge of plot 
y data value plotted at top edge of plot 
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POINT 



POINT 






Disk/Tape I/O 



POINT causes the value of a data set's next-record-po i nter » 
which is maintained by the system* to be reset to a new value. 
The system will use this new value in subsequent sequential 
data set accesses. 

Syntax 



label 



POINT DSx ,relrecno , P2= 



Required: DSx, relrecno 
Defaults: none 
Indexable: relrecno 



Operands 
DSx 



relrecno 



P2« 



Description 
The operand 



\^ p? 



x specifies the relative data set 
number in a list of data sets defined by the user in 
the DS parameter of the PROGRAM statement. The 
first data set is DS1, the second is DS2, and so on. 
A DSCB name defined by a DSCB statement can be sub- 
st i tuted for DSx . 

The new value of the next record pointer* either a 
constant or the label of the value to be used. 

Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px«) M on page 8 for further 
descr i pt i ons . 



\J 



212 SC34-0314 



POST 






POST 



Task Control 



POST is used to signal the occurrence of an event. 
Syntax 



label 



POST event , code, P1=,P2= 



Required: event 
Defaults: code=-l 
Indexable: event 



Operands 
event 



code 



Px = 



Description 

The symbol i c 
defined in 
i nstruct i on , 
ECB must be 
SEDXASM. 



name of the event. The name may be 

an EVENT= operand of another 

or with an ECB statement. An explicit 

coded in programs to be compiled with 



$S1ASM and the S/370 host assembler both provide 
automatic generation of the ECB for the event named 
in the POST instruction. It is not necessary to 
code an ECB statement with either of these macro 
assemblers . 

Process interrupts are special events which may be 
simulated with a POST. This is useful when one task 
is waiting for a process interrupt and a second task 
wishes to activate the first, as in a program termi- 
nation sequence. In this case, issue a POST PIx 
where x is a process interrupt number in the range 
of 1-99 as specified in an IODEF statement. 

A value, other than zero, to be inserted into the 
control block for the event. The code word is 
referred to by the event name and may be used as a 
flag to indicate a condition or a status. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px»)" on page 8 for 
further descriptions. 
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POST 



POST normally assumes the event is in the same partition as the 
executing program. However, it is possible to POST an event in 
another partition using the cross-partition capability of 
POST. See the System Gu i de topic on "Cross-Partition Services" 
for more information. 



A" 



kJ 
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PRINDATE 



PRINDATE 



Term i nal I/O 



PRINDATE prints the date on the terminal. The value is printed 
in the form MM/DD/YY or DD/MM/YY, depending upon the option 
selected on the SYSTEM statement when the supervisor was gener- 
ated. 



Syntax 



label 

Requ i red : 
Defaults : 



PRINDATE 

none 
none 



Indexab le : none 






Operands Descr i pt i on 
none none 
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PRINT 



PRINT 



Listing Control 

The PRINT statement is used to control printing of the assembly 
listing. 

A program may contain any number of PRINT statements. One 
PRINT statement controls the printing of the assembly listing 
until another is encountered. Each option remains in effect 
until the corresponding opposite option is specified. 

The GEN/NOGEN option is not supported by $EDXASM. 

Syntax 



blank PRINT ON/OFF , GEN/NOGEN, DATA/NODATA 

Requ i red : none 

Defaults: (Initially) ON, GEN, NODATA 

Indexable: none 



'\.-j^ 



Operands 

ON 

OFF 

GEN 

NOGEN 



DATA 
NODATA 



Descr i pt i on 

The operands may be specified in any sequence. 

A listing is printed. 

No listing is printed. 

All statements generated by instructions 
pr i nted . 



are 



Statements generated by instructions are not 
printed with the exception of MNOTE (error mes- 
sages) which will print regardless of NOGEN. The 
instruction itself will still appear in the list- 
i ng . 

Constants are printed out in full in the listing. 

Only the leftmost 8 bytes of constants are printed 
on the 1 i st i ng . 
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PRINTEXT 



Terminal I/O 



PRINTEXT is used to write a message to the terminal and to con- 
trol forms movement. Forms control is always executed before 
the message is written. 



Syntax 



label 



PRINTEXT msg,SKIP=,LINE=,SPACES*,XLATE=, 
MODE=, PROTECT*, Pl= 



Required: At least one operand other than XLATE=» 

MODE= or PROTECT= 
Defaults: SKIP=0 , L INE= (current 1 i ne ) , SPACES=0 , 

XLATE=YES,PROTECT=NO 
Indexable: msg , LINE , SKIP, SPACES 



Operands 
msg 



SKIP = 



Descr i ot i on 

The name of a TEXT statement which defines the 
message to be printed or an explicit text message 
enclosed in apostrophes. If msg is the label of a 
BUFFER statement referenced by an active IOCB, then 
the output is direct, for example, the count is tak- 
en from the buffer index word at msg-4> the new line 
character is not recognized, and the operation is 
executed immediately. The direct I/O feature is 
useful for full control over a device, for example, 
to cause overstriking on a printer. 

The maximum line size of the terminal is estab- 
lished by the TERMINAL statement used to define the 
terminal when the system was configured. Refer to 
the TERMINAL statement in the System Gu i de for 
information on default sizes. 

The number of lines to be skipped before the next 
operation. If a current concatenated line has not 
been written, then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size 
(BOTM-TOPM-NHIST), then it is divided by the page 
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PRINTEXT 



LINE = 



SPACES= 



size* and the remainder is used in place of the 
spec i f i ed value. 

This operand is used to specify the line at which 
the next I/O operation will take place. Code a num- 
ber between and the number of the last usable line 
on the page ( BOTM-TOPM-NH 1ST ) . For hardcopy 
devices or roll screens* if the value specified is 
less than or equal to the current line number* then 
the forms will move to the specified line on the 
next page, otherwise to that line on the current 
page. In any case, if the value exceeds the last 
usable line number, then it is divided by the log- 
ical page size, and the remainder is used in place 
of the specified value. 

The I/O position for a terminal or logical screen is 
defined by the line number and the position, within 
that line, of the typing element or cursor. The 
SPACES parameter is used to specify an increment to 
the cursor position. It does not imply 
over -printing with blank characters on display 
screens. Nhenever LINE or SKIP is specified on an 
instruction, the current indent is reset to zero 
(carriage return). For static screens in partic- 
ular, specification of both LINE and SPACES desig- 
nates a character position in 2-coordinate form. 
If SPACES is specified without LINE or SKIP, then 
the indent value is incremented by the value speci- 
fied. 



v> 



w 



XLATE= To send character codes to the device as is, without 
translation by the system, code XLATE=NO. This 
option might be used, for example, to transmit 
graphic control characters and data. XLATE=YES 
causes translation of characters from EBCDIC to the 
terminals code . 

Note * If the terminal requires that characters be 
sent in "mirror image", it is the user's responsi- 
bility to provide the proper bit representation if 
XLATE=NO is used. 



MODE = 



Code MODE=LINE if the text includes imbedded a 
characters which are not to be interpreted as new 
line. For screens accessed in STATIC mode, 
MODE=LINE causes protected fields to be skipped 
over as the data is transferred to the screen. Pro- 
tected positions do not contribute to the count. Do 
not code this parameter if 3 characters are to be 
interpreted as new line. 
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PRINTEXT 



O 



PR0TECT= 



Px = 



Code PROTECT=YES to write protected characters to a 
screen device for which this feature is supported 
(the IBM 4978/4979 display). This operand is mean- 
ingful only for STATIC logical screens. 



Parameter naming operands. See 
Parameter Naming Operands (Px=)" 
further descriptions. 



"Use of The 
on page 8 for 



Code 



Descr i pt i on 



-1 
1 
2 
3 
4 
5 
6 
7 
>10 



Successful completion 

Device not attached 

System error (busy condition) 

System error (busy after reset) 

System error (command reject) 

Device not ready 

Interface data check 

Overrun rece i ved 

Codes greater than 10 represent possible 

multiple errors. To determine the errors* 

subtract 10 from the code and express the result 

as an 8-bit binary value. Each bit (numbering 

from the left) represents an error as follows: 



Bit 



Descr i pt i on 



Unused 

System error (command reject) 

Not used 

System error (DCB specification check) 

Storage data check 

Invalid storage address 

Storage protection check 

Interface data check 



Figure 11. Terminal I/O Return Codes 



Note : If for devices supported by I0S2741 (2741, PROC) an error 
code greater than 128 is returned, subtract 128; the result 
then contains status word 1 of the ACCA. Refer to the 
Communications Features Description manual for determination 
of the special error condition. 
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PRINTEXT 

Exgynpjjg 

PRINTEXT TEXT1 

PRINTEXT ? 3START OF PROGRAM* 

PRINTEXT TEXT2,SPACES=4 

PRINTEXT TEXT3,LINE=1,SKIP=2 

PRINTEXT SKIP=1 

PRINTEXT CODES, XL ATE=NO 



u> 
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PRINTIME 



PRINTIME 



Terminal I/O 



PRINTIME prints the time of day on the terminal. The value 
printed is in the form HH:MM?SS> according to a 24-hour clock, 
and is based upon the time value entered during the last $T 
entry of t i me . 



label 

Requi red : 
Defaults: 



PRINTIME 

none 
none 



Indexable: none 






Operands Description 

none none 
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PRINTNUM 



PRINTNUM 



V a/ 



Terminal I/O 



PRINTNUM is used to convert a floating point variable or one or 
more numeric integer variables to printable decimal or 
hexadecimal format and write them to the terminal with optional 
format control. Format specification can include, for integer 
data, the number of elements per line and the spacing between 
elements can be specified. 



Syntax 



label 



Requ i red : 
Defaults : 



PRINTNUM loc, count, nl i ne , nspace , MODE = , FORMAT' 
TYPE=,SKIP=, LINE*, SPACES*, PROTECT* 
P1=,P2*,P3*,P4= 

loc 

count*l,nspace=l , MODE* DEC, PROTECT = NO, 

FORMAT=(6,0,I),TYPE=S, 

SKIP=Q,LINE=current 1 i ne , SPACES=0 

If nline is not specified, then it is 

determined by the terminal margin settings. 



Indexable: loc , SKIP, LINE , SPACES 



J 



Operands Description 

loc Address of the first value to be printed. 
Successive values ar& taken from successive words 
or doublewords . 



count 



The number of values to be printed. The precision 
specification may be substituted for the count 
specification, in which case the count defaults to 
1, or it may accompany the count in the form of a 
sublist: (count, precision). Precision may be 
either NORD (the default) or DWORD (double word). 



nline The number of values to be printed per line. 

nspace The number of spaces by which printed values will be 
separated . 



o 
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MODE = 



PRINTNUM 



Code MODE=HEX for hexadecimal output, 
is decimal (MODE=DEC). 



The default 



FORMAT= This operand is used to specify* in the form of a 
three-element list ( w , d , f ) , the external format of 
a single variable to be printed. If this operand is 
specified integer or floating-point* then count, 
nline, nspace, and MODE are -ignored. The format is 
defined as follows: 



A decimal value equal to the field 
bytes of the data to be printed. 



wi dth i n 



A decimal value equal to the number of 
significant digits to the right of the decimal 
point. For the integer format this value must 
be zero, for the floating-point F format it 
must be less than or equal to w-2» and for the 
floating-point E format less than or equal to 
w-6 . 



TYPE = 



SKIP = 



LINE = 



f Formatoftheoutputdata 

I Integer 

F Floating-point F format 

E Floating-point E format 

This operand is used to specify the type of the 
internal variable to be printed. Used only in con- 
junction with the FORMAT operand. 

S Single-precision integer (1 word) 

D Double-precision integer (2 words) 

F Single-precision floating-point (2 words) 

L Extended-precision floating-point (4 words) 

The number of lines to be skipped before the 
operation. If a current concatenated line has not 
been written, then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size 
(BOTM-TOPM-NHIST), then it is divided by the page 
size, and the remainder is used in place of the 
spec i f i ed value . 

This operand is used to specify the line at which 
the next I/O operation will take place. Code a num- 
ber between and the number of the last usable line 
on the page (BOTM-TOPM-NHIST). For hardcopy 
devices or roll screens, if the value specified is 
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PRINTNUM 



SPACES* 



less than or equal to the current line number* then 
the forms will move to the specified line on the 
next page, otherwise to that line on the current 
page. In any case, if the value exceeds the last 
usable line number, then it is divided by the log- 
ical page size and the remainder is used in place of 
the value . 

The I/O position for a terminal or logical screen is 
defined by the line number and the position, within 
that line, of the typing element or cursor. The 
SPACES parameter is used to specify an increment to 
the cursor position. It does not imply 
over-printing with blank characters on display 
screens. Whenever LINE or SKIP is specified on an 
instruction, the current indent is reset to zero 
(carriage return). For static screens in partic- 
ular, specification of both LINE and SPACES desig- 
nates a character position in 2-coordinate form. 
If SPACES is specified without LINE or SKIP, then 
the indent value is incremented by the value speci- 
fied. 






PROTECT* Code PROTECT=YES to write protected characters to a 
device for which this feature is supported. 



Px = 



Parameter naming operands. See 
Parameter Naming Operands (Px=)" 
further descriptions. 



"Use of The 
on page 8 for 



V_^ 



Example 

PRINTNUM A 

PRINTNUM BUF1,10 

PRINTNUM AX,MODE=HEX 

PRINTNUM BUF2, 10,5,3 

PRINTNUM BZ, ( 1 , DNORD ) , M0DE=HEX 



o 
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f I 



PROGRAM 



Task Control 



PROGRAM is used to define basic parameters of a user program. 
PROGRAM is the first statement of every user program. Nhen 
program assembly is to be done by SEDXASM* the PROGRAM state- 
ment may be omitted when assembling a subprogram. (See the MAIN 
operand for the definition of a subprogram.) When program 
assembly is to be done by the Host or Series/1 macro assem- 
blers* the PROGRAM statement must be coded even for subpro- 
grams . 



Syntax 



taskname PROGRAM start » pr i or i ty , EVENT= , 

DS=(dsnamel» . . . ,dsname9),PARM=n, 
PGMS=(pgmnamel,. . . ,pgmname9),TERMERR=, 
FLOAT=,MAIN=,ERRXIT=,STORAGE=,WXTRN= 

Required? taskname » start (except when MAIN=NO) 
Defaults: pr i or i ty=150 , PARM^O , F LOAT=NO , MA I N= YES , 

STORAGE=0,WXTRN=YES 
Indexable: none 



Operands Descr i ot i on 

taskname The name to be assigned to the primary task of the 
program. A system control block is generated for 
each task in an application program. This is known 
as the Task Control Block or TCB. The first word of 
the TCB is assigned the name specified in the 
taskname operand. This word is known as the 'task 
code word' and has a special significance in pro- 
gram operation. For example* in I/O operations it 
is used for storing a return code for the user. 
Thus* the task name may be used in an IF instruction 
to test for a successful completion of an I/O oper- 
ation. 



start 



The label of the first instruction to be executed in 
your program. The instruction must be on a full word 
boundary. 



Chapter 3. Instruction and Statement Descriptions 



2 25 



PROGRAM 



priority The priority of the program's primary task. 
Priorities separate tasks according to their rela- 
tive critical real time needs for processor time. 
The range is from 1 (highest priority) to 510 (low- 
est priority). Priorities 1-255 imply foreground 
and are executed on hardware interrupt level 2. 
Priorities 256-510 imply background and are exe- 
cuted on interrupt level 3. 



EVENT* 



| DS = 



EVENT=name is used to name the event which will be 
posted when the initial task is detached. It must 
be defined only if another task will issue a WAIT 
for this event. This event name must not be defined 
explicitly by an EGB since it will be generated 
automat i cal ly . 

Names of 1-9 disk, diskette, or tape data sets to be 
used by this program. Each name is composed of 1-8 
alphameric characters, the first of which must be 
alphabet i c . 

One DSCB is generated in the program header for each 
data set specified in the DS parameter of the PRO- 
GRAM statement. The name of each DSCB so generated 
is DS1, DS2, ..., DS9, corresponding to the order of 
specification of the data set. The name DSx is 
assigned to the first word of the DSCB, the event 
control block. Fields within the DSCB may be refer- 
enced symbolically with the expression: 

DSx+name 



V^ 7 ' 



where name is a 
table, DSCBEQU. 



label defined in the DSCB equate 



All tape data sets are of the form ( DSN, VOLUME ) . The 
specification of tape data sets is dependent upon 
the type of label processing being done. 

For standard label (SL) processing the DSN is the 
data set name as it is specified in the HDR1 label. 
VOLUME is the volume serial as it is specified in 
the V0L1 label. 

When doing no label (NL) processing or bypass label 
processing (BLP) the volume must be specified as 
the 1 - 6 digits that represent the tape unit ID. 
The tape unit ID was assigned at system generation 
time. The DSN is ignored during NL or BLP processing 
but it must be supplied for syntax checking pur- 
poses. It also provides identification of the data 
set for things like error logging. 
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If more than one disk or diskette logical volume is 
being used* a volume label must be specified if the 
data set resides on other than the IPL volume. The 
data set name and volume are separated by a comma 
and enclosed in parentheses. In addition, the 
entire list of data set/volume names are enclosed 
in a second set of parentheses. For example: 



■x 



. . . ,DS=((ACTPAY,EDX001), ( DSDATA2 , EDX00 3 ) ) 

references the data set ACTPAY on volume EDX001 and 
DSDATA2 on volume EDX003. If a volume is not speci- 
fied, the default is the IPL volume. 

When one data set is used and it is in the IPL vol- 
ume, no parentheses are required. For example? 

DS=CUSTFIL 

When more than one data set is used and they reside 
in the IPL volume, the data set names are separated 
by commas and enclosed in parentheses. For exam- 
ple : 

DS=(CUSTFIL,VENDFIL) 

Four special data set names are recognized: ??, $$, 
$$EDXLIB, and $$EDXVOL. A data set control block 
(DSCB) is created just as for any other data set 
name. However, special processing occurs when the 
program is loaded for execution. 



If the sequence •??* is used as a data set name, the 
final data set name and volume specification is 
done at program load time. If the program is loaded 
by another program, this information must be 
contained in the DS operand of the LOAD 
instruction. If the program is loaded 



system command f $L f , the system will 
operator for these names. If the 
sequence is of the form 



us i ng the 

query the 

spec i f i ed 



DS = ((string,??)) 

where 'string* is 1-8 alphanumeric characters the 
user will be given a prompt message: 

string(NAME, VOLUME) 

If the specified sequence is of the form 
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PARM = 



DS = ?? 
the user will then be given a prompt message 
DSnCNAME, VOLUME) : 



J? 



where 



is a digit from 1 to 9. 



If the sequence '$$' is used as a data set name* a 
DSCB is created but no attempt is made to open the 
data set. All other data sets are processed in the 
normal fashion. This is useful for reserving a DSCB 
in the PROGRAM header so that it can be filled in 
and opened (using DSOPEN) after execution begins. 

If *$$EDXLIB is used as a data set name* the library 
directory of the specified volume is opened for 
processing. Note that record 1 contains a directory 
control entry and the first seven directory member 
entries. This is useful for the creation of utility 
programs or for "do it yourself" data set access. 
Update of the directory by user programs is not 
recommended since doing so incorrectly could cause 
the loss of some or all of the data sets in the vol- 
ume . 

If $$EDXVOL is used as a data set name* the entire 
volume is opened for processing as if it were a sin- 
gle data set. The library directory and any data 
sets on the volume are accessible. Note that record 
number 1 and 2, of a primary volume* can contain IPL 
text* and record number 4* of a diskette* contains 
the volume label. This is useful if the DISK state- 
ment defining the volume did not assign all avail- 
able space to a library. It can also be used if the 
application program does not wish to use Event 
Driven Executive data set facilities at all. 

In this operand* n is a word count specifying the 
length of a parameter list to be passed to this pro- 
gram at load time. Each word in the list may be ref- 
erenced by the symbolic name $PARMx where x is the 
word position number in the list beginning with 1. 
The maximum length of this list is 368 words less 19 
for each data set name specified in the DS operand 
and each program overlay name specified in the PGMS 
operand. 

This parameter is valid for programs to be loaded by 
a LOAD instruction. The list address is specified 
as an operand of that instruction. The list would 
be filled in by the loading program and there are no 



"K.J?' 



C 
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restrictions as to its contents. If a program is 
loaded using $ L and it has a PARM specification, the 
parameters will be initialized to zero. 



PGMS = 



Names of 1-9 programs which may be loaded as 
overlays during execution of this program. Pro- 
grams are specified by name only if they reside on 
the IPL volume or by ( name , vo 1 ume ) if they reside 
elsewhere. The same coding rules apply as for DS 
above . 

Space will be reserved within this program for the 
largest of the overlay programs identified in this 
list, thus insuring that space will be available 
for the overlays when the program is executed. 
Overlay programs are invoked using LOAD; only one 
overlay program can be executed at any one time 
because each one uses the same space. See the 
description of the LOAD instruction for additional 
i nf ormat i on . 



1. PGNS can only be coded for a main program and 
not in the PROGRAM statement of an overlay pro- 
gram. 

2. PGMS cannot specify tape data sets. 



TERMERR= 



When overlay programs have been specified in the 
PROGRAM statement of an application program, a DSCB 
is created in the program header for each such over- 
lay. Each of these can be referred to by the name 
PGMx where x is a number from 1 to 9 corresponding 
to the order of specification of the program name. 
Fields within these DSCBs may be referenced as 
PGMx+name where name is a label defined in the DSCB 
equate table, DSCBEQU. 

Specifies the label of a routine which will handle 
unrecoverable terminal errors. See "Error 
Handling" on page 44 for a description of the use of 
this operand. 



FLOAT* Specify FLOAT=YES if floating 
are used by the initial task. 



point instructions 



MAIN = 



Specify MAIN=NO if this program does not contain 
the primary task of a program. For example, code 
MAIN = NO if this program is a subroutine or any other 
section of a program which is being prepared sepa- 
rately and will later be link-edited to a main pro- 
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gram. Such a program is called a subprogram. Link 
editing of program modules is only possible with 
the SLINK utility from the Program Preparation 
Facility, (5719-XX2 or 5719-XX3) or Series/1 macro 
assembler, (5719-ASA). 

Note : Subprograms must not contain TASK, ENDTASK, 
or ATTNLIST statements. 

MAIN s NO suppresses the generation of the Program 
Header and the Task Control Block, thereby reducing 
the storage size of the subprogram. If MAIN = NO then 
none of the other operands of the PROGRAM statement 
are meaningful. 

When a subprogram is to be assembled by $EDXASM the 
PROGRAM statement may be omitted entirely. 

ERRXIT= Specifies the label of a 3 word list which points to 
a routine which is to receive control if a hardware 
error or program exception occurs while the primary 
task is executing. This task error exit routine 
must be prepared to completely handle any type of 
program or machine error. See the System Guide 
section on Task Error Exits before attempting to 
use the operand . 

If the primary task is part of a program which 
shares resources such as QCBs, ECBs, or Indexed 
Access Method update records with other programs, 
it is often necessary to release these resources 
even though your program cannot continue because of 
an error. The supervisor does not release 
resources for you, but the task error exit facility 
enables you to take whatever action that is appro- 
priate. 

The format of the task error exit list is: 



v_* 
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NORD 1 The count of the number of parameter 
words which follow (always F*2*) 



WORD 2 The address of the user's error exit 
rout i ne 



STORAGE= 



WORD 3 The address of a 24 byte area in 

which the Level Status Block (LSB) 
and Processor Status Word (PSW) 
from the point of error are placed 
before the exit routine is entered. 
Refer to a Series/1 processor 
description manual for a description 
of the LSB and PSW. 

Specifies in bytes the quantity of additional 
storage which should be added to the size of the 
program itself when it is loaded for execution. 
This provides a dynamic increment of storage at 
load time. This value may be overridden by a param- 
eter on the LOAD instruction, thus dynamically 
altering the space available to the program. The 
address and length of the additional storage is 
contained in the variables SSTORAGE and$LENGTH 
respectively and may be referenced by your program 
dur i ng execut i on . 

The amount of storage is rounded up to a multiple of 
256 bytes. $LENGTH contains the number of 256 byte 
pages that are available for current execution. If 
no dynamic area is specified, SLENGTH contains 
and ^STORAGE contains the address of the program's 
primary task. 

Storage can be any value from to 65,535 minus the 
size of the program itself. If the storage required 
is not available at LOAD time, the program will not 
be loaded. 



The amount of storage required by a program for such 
things as buffers, queues, or data often varies 
depending on its input. Dynamic storage provides a 
way to adjust the amount of storage available with- 
out recompiling your program. The PROGRAM state- 
ment can be used to define the amount of dynamic 
storage for either minimal or typical processing 
requirements and the LOAD instruction can be used 
to expand the work space when processing will 
require more storage. For example, on a daily basis 
a program may have to read about 1000 bytes of data 
into storage, analyze it and format it into a 
report. Once a month it may be required to process 
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WXTRN= 



30 days worth of data (30,000 bytes) in the same 
way. Instead of wasting 29,000 bytes of storage 
every day, dynamic storage can be used to adjust the 
size to meet requirements. 

Specify WXTRN=N0 if WXTRN statements for entry 
points SVC, SETBUSY, and SUPEXIT are not to be gen- 
erated by PROGRAM. WXTRN=YES causes the WXTRNs to 
be created. These entry points must be defined for 
Series/1 assembler language programs which contain 
references to them; however the WXTRNs have no 
effect on programs which do not refer to them and 
thus the default is WXTRN=YES. The NO option is 
provided primarily to allow selective use of EXTRN 
statements for the entry points at the discretion 
of Series/1 assembler language programmers. 



x y 



Examples of valid PROGRAM statements 

TASK1 PROGRAM START1 

The primary task is named TASK1 and the first executable 
instruction has the label START1 . The priority of TASK1 
is the default priority, 150. 



TASK2 



PROGRAM BEGIN, 30 0, FLO AT = YES 



The primary task, which is named TASK2, has a priority 
300 and starts at the label BEGIN. Floating point 
instructions will be used. 



W 



TASK3 



PROGRAM G0PR0G,DS=NAME1 



The primary task, TASK3, starts at GOPROG. One data set, 
NAME1, is defined. All disk I/O statements will refer 
to this data set by the symbolic name DS1. 
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TASK4 PROGRAM START4 , DS= ( C MYDATA , 1 1 001 1 ) ) 

The primary task* TASK4, starts at STARTS and uses one tape 
data set. That data set is on a standard labeled tape where 
the VOL1 label contains 110011 as the volume serial number 
and the HDR1 label contains MYDATA as the data set name. 
These labels were written using the STAPEUT1 utility INITIAL- 
IZE f unct ion. 



TASK5 



PROGRAM START5,DS=(($$EDXVOL,TU088) ) 



The primary task, TASK5, starts at STARTS and uses one tape 

data set. That tape data set is either on a no label tape or 

bypass label processing is being used and the tape device ID 
is TU088. 

TASK6 PROGRAM START6 ,DS= ( ? ? , ( NAME2 , EDX002 ) ) , 

PGMS=(0LAY1,0LAY2), STORAGES 00 

TASK6 starts at START6. Two data sets are defined. The name 
of DS1 will be specified at program load time. The second 
data set* DS2, has the name NAME2 and resides on the logical 
volume named EDX002. Two overlays are defined, 0LAY1 and 
0LAY2. A 1000-byte area will be appended to the program and 
its address placed in $STQRAGE. 

TASK7 PROGRAM START 7 , DS= ( MYDS1 , ( MYDS2 , 1 0000 1) , 
(OUTPUT,??),??) 
The primary task, TASK7, starts at START7 and uses 4 data 
sets. MYDS1 is a disk or diskette data set in the IPL vol- 
ume. MYDS2 is a tape data set on standard labeled tape num- 
ber 100001. The last two data sets require operator prompt- 
ing. The third data set will be prompted for as 
OUTPUTCNAME, VOLUME); the fourth will be prompted as 
DS4CNAME, VOLUME) . Either or both of the latter data sets may 
be specified by the operator as disk, diskette, or tape data 
sets . 
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Task Control 



PROGSTOP is used to terminate execution of a program and 
release the storage allocated to it. There can be more than one 
PROGSTOP statement in a program. You are responsible for 
ensuring that all other tasks in a program are inactive at the 
time when the last active task of the program executes a 
PROGSTOP. The results of executing a PROGSTOP in a program 
with multiple active tasks are unpredictable. 

You are also responsible for assuring that no asynchronous 
events remain outstanding. If your program contains an ECB for 
an event that has not yet occurred* you must WAIT on the event 
before PROGSTOP. The following instructions can generate 
asynchronous events: READ, WRITE, STIMER, LOAD, ENQ, and ENQT. 
Also, if your program can be posted by another program, you 
must WAIT for the POST or prohibit the other program from post- 
ing before executing PROGSTOP. 



PROGSTOP will perform a close (CONTROL CLSOFF) for any open 
tape data set that was defined by the PROGRAM statement 
passed by another program. 



or 



Note that comments cannot be included on a PROGSTOP statement, 
unless one or both of the allowable operands are included in 
the i nstruct i on . 

Syntax 



V> 



label PROGSTOP code , LOGMSG= , Pl = 

Requ i red : none 

Defaults: code = -1, LOGMSG=YES 

Indexab le : none 



Operands Descr i pt i on 

code The posting code to be inserted in the EVENT named 
in the associated LOAD statement. 



o 
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LOGMSG= Code either YES or NO to indicate whether or not a 
"PROGRAM ENDED" message is to be typed on the termi- 
nal being used by this program. 

Pl= Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px=)" on page 8 for further 
descr i pt i ons . 
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P 



Data Formatting 



PUTEDIT is used to get data from variables within the program, 
convert it to a character string, and either store it in an out- 
put text buffer or send it to a terminal. 

PUTEDIT uses the specified FORMAT statement and the data list 
and converts and moves the elements one by one into the text 
buffer . 

Syntax 



label 



PUTEDIT format, text, (list) , (format list), 

ERROR=,ACTION=,SKIP=,LINE=,SPACES=, 
PROTECT* 



Required: text, (list), and either format 

OR (format list) 
Defaults: ACTION= 10 , PROTECTING 
Indexable : none 



Vy 



Operands Descr i pt i on 

format The name of a FORMAT statement or the name to be 
attached to the format list optionally included 
within this instruction. This statement or list 
will be used to control the conversion of the data. 
This operand is required if the program is compiled 
with SEDXASM. 



text 



The name of a text statement defining the text 
buffer. If data is moved to the terminal, this buff- 
er stores the data (as an EBCDIC character string) 
after it is converted from the variables and before 
it is sent to the terminal. 



Note : This TEXT statement must be large enough to 
contain all the EBCDIC characters generated by this 
i nstruct i on . 



o 
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A description of the variables or locations which 
contain the input data* having the form? 



( (variable, count, type) , ) 

or 

( var i able , ) 

or 

( (variable, count) » ) 

or 

((variable, type), ) 

where : 

variable - is the name of a variable or group of 
variables that are to be converted to EBCDIC. 

count - is the number of variables that are to be 
converted . 

type - is the type of the variable to be converted 

S - Single-precision integer (Default) 
D - Double-precision integer 
F - Single-precision floating-point 
L - Extended-precision floating-point 

Type will default to S for integer format data 
and to F for floating-point format data. 

format list A FORMAT list. If you wish to refer to this format 
statement from another PUTEDIT instruction, then 
both the format and format list operands must be 
coded. Refer to the FORMAT statement for coding 
instructions. This operand is not allowed if the 
program is assembled with SEDXASM. 

ERROR* The name of a user's routine to branch to if an 
error is detected during the PUTEDIT execution. 
Errors that might occur that will cause this action 
to take place are : 

• Use of incorrect format list 

• Not enough space in text buffer to satisfy the 
data list 

The error indicators (return codes) follows 
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Return Codes 



o 



Code 



Descr i pt i on 



-1 Successful completion 

1 No data in field 

2 Field omi tted 

3 Conversion error 



ACTION* 



SKIP* 



10 causes a PRINTEXT to be executed following the 
data convers i on . 

STG causes the conversion and movement of data 
into a text buffer. No I/O takes place. 

The number of lines to be skipped before the next 
operation. If a current concatenated line has not 
been written, then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size (BOTM-TOPM- 
NHIST), then it is divided by the page size* and 
the remainder is used in place of the specified 
value . 



/"" N 



LINE* 



SPACES* 



This operand is used to specify the line at which 
the next I/O operation will take place. Code a 
number between and the number of the last usable 
line on the page (BOTM-TOPM-NHIST ) . For hardcopy 
devices or roll screens* if the value specified is 
less than or equal to the current line number, then 
the forms will move to the specified line on the 
next page, otherwise to that line on the current 
page. In any case, if the value exceeds the last 
usable line number, then it is divided by the log- 
ical page size, and the remainder is used in place 
of the specified value. 

The I/O position for a terminal or logical screen 
is defined by the line number and the position, 
within that line, of the typing element or cursor. 
The SPACES parameter is used to specify an incre- 
ment to the cursor position. It does not imply 
over-printing with blank characters on display 
screens. Whenever LINE or SKIP is specified on an 
instruction, the current indent is reset to zero 
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(carriage return). For static screens in partic- 
ular* specification of both LINE and SPACES desig- 
nates a character position in 2-coordinate form. 
If SPACES is specified without LINE or SKIP, then 
the indent value is incremented by the value spec- 
ified. 



PROTECT= Code PROTECT=YES to write protected characters to 
a screen device for which this feature is sup- 
ported. (The IBM 4978/4979 display). This oper- 
and is meaningful only for STATIC logical screens. 

Example 



PUTEDIT 



FM,TEXT1, (A, (B,F) ,(C,D) 



TEXT1 TEXT LENGTH=28 

FM FORMAT ( I4/F6 . 2 , 2X , ' DATA= • 



E10.4) 



»s 



The above example will convert the integer A into the first 4 
positions of TEXT1 followed by a carriage return command. 
Then* the next 6 positions will contain the variable B followed 
by 2 spaces. The literal *DATA= ? will then follow with the 
extended precision variable C converted into the last 10 posi- 
t i ons . 

Note : SLINK must be used in order to include the formatting 
routines which are supplied as object modules. Refer to "Data 
Formatting Instructions" on page 18 for additional 
i nf ormat ion. 
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QCB generates a five-word Queue Control 
with the ENQ and DEQ instructions. 



Task Control 



Block (QCB) for use 




A maximum of 25 QCB statements may be coded in a program. If 
more than 25 QCBs are required* they must be coded using the 
DATA statement. For example? 



QCB1 



QCB 



is equivalent to coding, 



QCB1 



DATA 


F , -l l 


DATA 


2F f 0' 


DATA 


2F'0 T 



"~\„,.jr 



Note that QCB is not an executable statement and should there 
fore not be placed between executable instructions. 

Syntax 



label 

Requ i red : 
Defaults : 
Indexable: none 



QCB code 

label 
code = -1 
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Operands Descr i pt i on 

label The label of the QCB statement is used as the name 
of the resource it represents. It is used as an 
operand in ENQ and DEQ instructions. 

code Initial value of the code field (word 1). If this 
word is non-zero f the resource whose usage is con- 
trolled by this QCB is defined as not in use. 
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Term i nal I/O 




beginning with Y) for yes, or N (or any string beginning with N) 
for no. Note that advance input may accompany the response. If 
an invalid response is entered* the operator is prompted until 
a Y or N is entered. The QUESTION instruction must be issued 
only to terminals which have input capability for response to 
the prompt . 



Syntax 



label 



Requ i red : 
Defaults : 



QUESTION pmsg,YES=,NO=,SKIP=,LINE=, 
SPACES=,P1= 

pmsg and either YES= or N0 = 
If either YES or NO is not specified* 
the corresponding response (Y or N) 
will cause the next instruction to be 
executed . 



Indexable: pmsg , SKIP, LINE , SPACES 






Operands Descr i ot i on 

pmsg The prompt message, specified either as the name of 
a TEXT statement or as an explicit message enclosed 
i n quotes . 



YES = 



Label of the command at which execution 
continue if the answer is YES. 



wi 11 



N0 = 



The label at which execution will continue if the 
answer i s NO . 



SKIP = 



The number of lines to be skipped before the next 
operation. If a current concatenated line has not 
been written, then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size 



^L^^ 
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SPACES* 



Pl = 



QUESTION 



(BOTM-TOPM-NHIST), then it is divided by the page 
size* and the remainder is used in place of the 
spec i f i ed value . 

This operand is used to specify the line at which 
the next I/O operation will take place. Code a num- 
ber between and the number of the last usable line 
on the page (BOTM-TOPM-NHIST). For hardcopy 
devices or roll screens* if the value specified is 
less than or equal to the current line number* then 
the forms will move to the specified line on the 
next page* otherwise to that line on the current 
page. In any case* if the value exceeds the last 
usable line number* then it is divided by the log- 
ical page size* and the remainder is used in place 
of the specified value. 

The I/O position for a terminal or logical screen is 
defined by the line number and the position* within 
that line* of the typing element or cursor. The 
SPACES parameter is used to specify an increment to 
the cursor position. It does not imply 
over -printing with blank characters on display 
screens. Whenever LINE or SKIP is specified on an 
instruction* the current indent is reset to zero 
(carriage return). For static screens in partic- 
ular* specification of both LINE and SPACES desig- 
nates a character position in 2-coordinate form. 
If SPACES is specified without LINE or SKIP, then 
the indent value is incremented by the value speci- 
fied. 

Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px=)" on page 8 for further 
descriptions. 



Example 



QUESTION TEXT3,YES=P0INT1 
QUESTION f D0 IT AGAIN? f , NO=EXIT 
QUESTION f RESTART?' , YES= INITIAL , NO=ENDP 



TEXT3 TEXT 



'GO TO P0INT1?' 
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XJ 



Terminal I/O 



RDCURSOR is effective only for IBM 4978/4979 terminals 
accessed in STATIC mode. It is used to store the cursor posi- 
tion (line number and indent relative to the logical screen 
margins) in user-specified variables. For more information on 
STATIC screens refer to "Terminal I/O Instructions" on page 44. 



Syptax 



label RDCURSOR line, indent 

Required: line, indent 

Defaults: none 

Indexable: line, indent 



Operands Descr i pt i on 

line The name of the variable in which the cursor 
position, relative to the top margin of the logical 
screen accessed, is to be stored* If the cursor 
lies outside the line range of the logical screen, 
then -1 is stored . 

indent The name of the variable in which the cursor 
position, relative to the left margin of the log- 
ical screen, is to be stored. If the cursor posi- 
tion is not within the left and right margins of the 
logical screen, then -1 is stored. 

Example 



V4 _jf/ 



RDCURSOR 
RDCURSOR 



LN,SP 

(Y,#l), (X,#l) 



244 SC34-0314 



o 



READ 



READ 



Disk/Tape I/O 



READ is used to retrieve one or more records from a direct 
access or tape data set into a user storage buffer. It is your 
responsibility to ensure that sufficient buffer space has been 
defined. Direct access data sets can be read either sequen- 
tially or randomly. These data sets are read in 256-byte record 
i ncrements . 



-, . are read sequentially only. A tape READ 

retrieves a record from 18 to 32767 bytes long, as specified by 



Tape data sets 

retr 

the blksize parameter. 



I Syntax 



label 



Requ i red : 
Defaults : 
Indexable : 



READ DSx,loc,count,relrecno|blksize, 
END=, ERROR =,WAIT=,P2=,P3=,P4= 

DSx , loc 

count=l,relrecno=0 or blksize=256,WAIT=YES 

loc , count , re 1 recno or blksize 



Operands Descr i pt i on 

DSx x specifies the relative data set number in a list 
of data sets defined by the user on the PROGRAM 
statement. It must be in the range of 1 to n, where 
n is the number of data sets defined in the list. A 
DSCB name defined by a DSCB statement can be substi- 
tuted for DSx . 



o 



loc 
count 



The label of the area into which the data is read. 

The number of contiguous records to be read. If 
this field is set to by the program, no I/O oper- 
ation will be performed. A count of the actual num- 
ber of records transferred will be returned in the 
second word of the task control block if WAIT = YES is 
coded. Note, however, if the incorrect blocksize 
was specified, the actual blocksize will be stored 
in the second word of the TCB, not the number of 
records transferred. If an end-of-data condition 
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relrecno 



occurs (fewer records remaining in the data set 
than specified by the count field) the system will 
first read the remainder and then an end-of-data 
return code will be set. 

This operand specifies the number of the record* 
relative to the origin of the data set, to be read. 
Numbering begins with 1. This parameter may be a 
constant or the label of the value to be used. A 
specification of or default to indicates a 
sequential READ. Note however, if is specified, 
the end-of-data will be the physical end-of-data, 
but if relrecno defaults to end-of-data will be 
the logical end-of-data. 



if \ 



This disk READ operand cannot be used in the same 
instruction with the tape READ blksize operand. 



Sequential READs and WRITEs start with relative 
record 1 or the record number specified by a POINT 
instruction. The supervisor keeps track of sequen- 
tial READs and WRITEs and increments an internal 
next record pointer for each record read or written 
in sequential mode (relrecno is 0). Direct READs 
and WRITEs (relrecno is not 0) may be intermixed 
with sequential 'operations, but these do not alter 
the next sequential record pointer used by sequen- 
tial operat i ons . 






blksize This operand determines the number of bytes to be 
read from a tape data set. The range is from 18 to 
32767. The value can either be a constant or the 
label of the value to be used. If this operand is 
not coded, or if is coded, the default value of 
256 bytes will be substituted. 

The first word of the TCB will contain the return 
code for the READ operation. If the specified 
blksize does not equal the actual blksize, the 
ERROR path will be taken and the second word of the 
TCB will contain the actual blksize. Note, however, 
that the blksize is only stored in the second word 
of the TCB if WAIT=YES is coded, or WAIT is not 
coded and allowed to default to YES. If you code 
WAIT=N0 and the blsksize specification is incor- 
rect, you can check the $DSCBR3 field in the DSCB 
for the actual number of records read or the actual 
blksize. 
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This tape READ operand cannot be used in the same 
instruction with the disk READ relrecno operand. 



END = 



Use this operand to specify the first instruction 
of the routine to be invoked if an end-of-data-set 
condition is detected (return code=10). If this 
operand is not specified, an EOD will be treated as 
an error. This operand must not be used if WAIT = NO 
i 5 coded . 



For tape data sets* if END is not coded* reading a 
tapemark will also be treated as an error. The phys- 
ical position of the tape, under this condition, is 
the read/write head position is immediately follow- 
ing the tapemark. See CONTROL close functions for 
repositioning of the data set. Remember also that 
the count field might not be decremented to zero. 






ERROR= Use this operand to specify the first instruction 
of the routine to be invoked if an error condition 
occurs during the execution of this operation. If 
this operand is not specified, control will be 
returned to the next instruction after the READ and 
you must test the return code in the task code word 
for errors. This operand must not be used if 
WAIT=NO is coded. 



WAIT = 



If this operand is allowed to default or if it is 
coded as WAIT=YES, the current task will be sus- 
pended until the operation is complete. 



If the operand is coded as WAIT=NO, control will be 
returned after the operation is initiated and a 
subsequent WAIT DSx must be issued in order to 
determine when the operation is complete. 

END and ERROR cannot be coded if WAIT=NO is coded. 
You must subsequently test the return code in the 
Event Control Block (ECB) named DSx or in the task 
code word (referred to by 'taskname'). Two codes 
are of special significance. A -1 indicates a suc- 
cessful end of operation. A +10 indicates an f End 
of Data Set* and may be of logical significance to 
the program rather than being an error. For 
programming purposes, any other return codes should 
be treated as errors. 



Px = 



o 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 
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READ normally assumes the buffer (loc operand) is in the same 
partition as the currently executing program. However* a READ 
into a buffer in another partition is possible using the 
cross-partition capability of READ. See the System Guide topic 
on "Cross-Partition Services" for more information. 



I Disk/Tape Return Codes 



| Disk/tape I/O return codes are returned in two places: 

• The first word of the DSCB (either DSn or DSCB name) named 
DSn, where n is the number of the data set being refer- 
enced . 



• The task code word (referred to by taskname). 

The possible return codes and their meaning for disk and tape 
are shown in tables later in this section. 



Following an error condition on tape, the read/write head posi- 
tion is immediately following the error record. The error retry 
has been attempted, but was unsuccessful. The count field may 
or may not have been decremented to zero under this condition. 






If detailed information concerning an error is desired, it may 
be obtained by printing all or part of the contents of the disk 
data blocks (DDBs) or tape data blocks (TDBs), located in the 
supervisor area of partition 1. This can be accomplished in 
either of two ways: (a) by using the $LOG utility (see System 
Gu i de for details of use), or (b) by using the following infor- 
mation. The starting address of the DDBs/TDBs may be obtained 
from the link-edit map of the supervisor. DDBs/TDBs can also be 
located by the field SDISKDDB in the communications vector 
table (CVT). Use the PROGEQU equate table to reference 
$DISKDDB, DDBEQU equate table for DDB, and the TDBEQU equate 
table for the TDB fields. The contents of the DDBs and the TDBs 
are described in the IBM Ser i es/1 Event Driven Executive 
Internal Design , LY34-0168, under the headings of "Disk Data 
Block', 'DDB Equates'. Of particular value are the Cycle Steal 
Status Words and the Interrupt Status Word save areas, along 
with the contents of the word which contains the address of the 
next DDB/TDB in storage. 
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Disk/diskette Return Codes 



READ/WRITE return codes are returned in two places: 

• The Event Control Block (ECB) named DSn, where n is the 
number of the data set being referenced. 

• The task code word referred to by taskname. 

The possible return codes and their meaning are shown in 
Figure 18 on page 321. 

If further information concerning an error is required* it may 
be obtained by printing all or part of the contents of the Disk 
Data Blocks (DDBs) located in the Supervisor. The starting 
address of the DDBs may be obtained from the linkage editor map 
of the supervisor. The contents of the DDBs are described in 
the Internal Design . Of particular value are the Cycle Steal 
Status Words and the Interrupt Status Word save areas* along 
with the contents of the word which contains the address of the 
next DDB in storage. 






Code Description 
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Figure 12. READ/WRITE return codes 
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j Tape Return Codes 






Code Description 



-1 Successful completion 

1 Exception but no status 

2 Error reading STATUS 

4 Error issuing STATUS READ 

5 Unrecoverable I/O error 

6 Error issuing I/O command 
10 Tape mark (EOD) 

20 Device in use or offline 

21 Wrong length record 

22 Not ready 

23 File protect 

24 EOT 

25 Load po i nt 

26 Uncorrected I/O error 

27 Attempt WRITE to unexpired data set 

28 Invalid b Iks i ze 

29 Data set not open 

30 Incorrect device type 

31 Incorrect request type on close request 

32 Block count error during close 

33 E0V1 label encountered during close 
76 DSN not found 






I Example 



ABC PROGRAM START1 , DS= (( MYDATA , 234567 ) ) 

START1 READ DS1 , BUFF , 1 , 327 , END=END1 , ERR0R=ERR , WAIT=YES 



This statement reads a single 327-byte record from a 
standard labeled (SL) tape. If an end of data set tapemark 
is detected, control is transferred to the statement named 
END1. If an error occurred, control transfers to the 
statement named ERR. 



ABCD PROGRAM START2 , DS= ( C MYDATA , 234567 ) ) 

START2 READ DS1 , BUFF 2 , 2 , 32 7 , END=END1 , ERR0R=ERR , WAIT=YES 

This statement performs the same as the previous example 
except that 2 records are read into your storage buffer 
(BUFF2). BUFF2 must be 654 bytes in length. 



250 SC34-0314 



o 



READTEXT 



| READTEXT 



Terminal I/O 



READTEXT is used to read an alphameric text string entered by 
the terminal operator. The printing of an associated prompting 
message may be either unconditional or conditional depending 
upon the absence of advance input. 



I Syntax 



label 



Requ i red : 
Defaults: 



READTEXT 



loc 



loc,pmsg,PROMPT=,ECHQ=,TYPE=, 
MODE =, X L ATE=, SKI P=,L I NE=, SPACES 



loc 

PROMPT=UNCOND,ECHO=YES,TYPE=DATA,MODE=WORD, 
XLATE=YES,SKIP=0,LINE=current 1 i ne , SPACES=0 
Indexable: loc , pmsg , SKIP , LINE , SPACES 



Operands Descr i pt i on 

loc This operand is normally the label of a TEXT 
statement defining the storage area which is to 
receive the data; the storage area may be defined by 
DATA or DC statements as well* but the format 
produced by the TEXT statement must be adhered to. 
In order to satisfy the length specification, the 
input will be either truncated or padded to the 
right with blanks as necessary. 

If the length specification is greater than the 
system buffer size, then the length will be limited 
to the buffer size. If a user buffer is specified on 
the IOCB statement and you have issued an ENQT to 
the corresponding terminal, then the user buffer 
size will apply to the input length. 

This operand may also be the label of a BUFFER 
statement referenced by an active IOCB statement. 
In this case the input is "direct;" the maximum 
input count is taken from the word at loc-2, imbed- 
ded blanks are allowed, and the final input count is 
placed in the buffer index word at loc-4. 
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The maximum line size for the terminal is estab- 
lished by the TERMINAL statement used to define the 
terminal when the system was configured. Refer to 
the TERMINAL statement in the System Guide for 
information on the default sizes. 



pmsg 



The name of a TEXT statement or an explicit text 
message enclosed in apostrophes. This defines the 
prompting message which will be issued according to 
the value of the PROMPT operand. 



PROMPT* Code PROMPT=COND (conditional) or the default 
PROMPT=UNCOND (unconditional). If conditional 
prompting is specified and the terminal user enters 
advance input* the message defined by the pmsg 
operand is not displayed. Unconditional prompting 
causes the message to be displayed without regard 
to the presence of advance input. 



ECHO = 



Note : If PROMPT=COND is coded without 
specification of a prompt message* then the system 
will not wait for user input if advance input is not 
presented; instead* the receiving TEXT buffer is 
filled with blanks and its input count is set to 0. 

Code ECH0 = N0 if the input text is not to be printed 
on the terminal. This operand is effective only for 
devices which require the processor to 'echo 1 input 
data for printing. 






Note ? The specification PROTECTEES is equivalent. 



M0DE = 



Code M0DE=W0RD if the input operation is to be 
terminated by the entry of a blank character 
(space ) . 



Code M0DE = LINE if the string to be read can include 
i mbedded blanks . 

Any portion of the input which extends beyond the 
count indicated in the receiving TEXT statement 
will be ignored and will not be retained as advance 
i nput . 

When READTEXT is directed to a static logical 
screen* the input operation is normally terminated 
by the count being decremented to zero (the input 
buffer size)* by the beginning of a protected 
field* or by the end of the logical line. However* 
if M0DE=LINE, the TYPE operand will determine 
whether protected fields are skipped and whether 
they contribute to the count* and the input oper- 
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ation may continue beyond the logical screen bound- 
ary to the end of the physical screen. In this 
case* input continues from the end of each physical 
screen line to the beginning of the next line. 



TYPE 



This parameter is used to specify the type of data 
to be transferred from 4978/4979 terminals. 



The default is TYPE=DATA. Only data fields are 
transferred . 

Code TYPE=ALL to transfer both protected and data 
(non -protected) fields. 

TYPE=MODDATA is used to transfer only those data 
fields which have been modified by the terminal 
operator (4978 only). 

Code TYPE=MODALL to transfer* along with each modi- 
fied data field* the protected fields which precede 
it. 



XLATE= 



SKIP = 



Code XLATE^NO if the input line is not to be 
translated to EBCDIC. Note that the character 
delete and line delete codes lose their special 
functions under this option* and that MODE=LINE is 
i mpl i ed . 

Note i If the terminal is of the type that transmits 
characters in "mirror image" format* the characters 
will be placed in storage in that format if XLATE=NO 
is used. XLATE=YES causes the supervisor to trans- 
late the terminal's binary code to EBCDIC* the 
standard Series/1 representation of data. 

The number of lines to be skipped before the next 
operation. If a current concatenated line has not 
been written* then the first skip causes output of 
that line. If the value specified is greater than 
or equal to the logical page size 
CBOTM-TOPM-NHIST) , then it is divided by the page 
size* and the remainder is used in place of the 
specified value. 



LINE = 



This operand is used to specify the line at which 
the next I/O operation will take place. Code a num- 
ber between and the number of the last usable line 
on the page (BOTM-TOPM-NHIST) . For hardcopy 
devices or roll screens* if the value specified is 
less than or equal to the current line number* then 
the forms will move to the specified line on the 
next page* otherwise to that line on the current 
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page. In any case* if the value exceeds the last 
usable line number* then it is divided by the log- 
ical page size* and the remainder is used in place 
of the specified value. 

SPACES= The I/O position for a terminal or logical screen is 
defined by the line number and the position* within 
that line* of the typing element or cursor. The 
SPACES parameter is used to specify an increment to 
the cursor position. It does not imply 
over-printing with blank characters on display 
screens. Whenever LINE or SKIP is specified on an 
instruction* the current indent is reset to zero 
(carriage return). For static screens in partic- 
ular* specification of both LINE and SPACES desig- 
nates a character position in 2-coordinate form. 
If SPACES is specified without LINE or SKIP, then 
the indent value is increased by the value speci- 
fied. 






o 
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Return Codes 



Code 



Description 



-1 Successful completion 

1 Device not attached 

2 System error (busy condition) 

3 System error (busy after reset) 

4 System error (command reject) 

5 Device not ready 

6 Interface data check 

7 Overrun received 

>10 Codes greater than 10 represent possible 

multiple errors. To determine the errors. 
subtract 10 from the code and express the result 
as an 8-bit binary value. Each bit (numbering 
from the left) represents an error as follows: 



Bit 



Descr i pt i on 



Unused 

System error (command reject) 

Not used 

System error (DCB specification check) 

Storage data check 

Invalid storage address 

Storage protection check 

Interface data check 



Figure 13. Terminal I/O Return Codes 



Note : If for devices supported by I0S2741 (2741, PROC) an error 
code greater than 128 is returned, subtract 128; the result 
then contains status word 1 of the ACCA. Refer to the 
Communications Features Description manual for determination 
of the special error condition. 



© 
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Value Transmit 

x'8Fnn» NA 
x^Enn* NA 
-2 NA 

-1 Successful completion 

1 Not attached 

5 Disconnect 

8 Break 



Rece i ve 

LINE = nn rece i ved 

S K I P = n n received 

Line received (no CR) 

New 1 i ne rece i ved 

Not attached 

Di sconnect 

Break 



Figure 14. Virtual Terminal Communication Return Codes 



Following is a further description of the above values for a 
receive operation: 

LINE=nn Cx'SFnn 1 ): This code is posted for READTEXT or GETVALUE 
instructions if the other side sent the LINE forms control 
operation; it is transmitted so that the receiving program may 
reproduce on a real terminal (for printer spooling applica- 
tions for example) the output format intended by the sending 
program . 

SKIP=nn (x'SEnn'): The sending program transmitted SKIP=nn. 

Line Received (-2): This code indicates that the sending pro- 
gram did not send a new line indication* but that the line was 
transmitted because of execution of a control operation or a 
transition to the read state. This is how, for example? a 
prompt message is usually transmitted with READTEXT or 
GETVALUE. 

New Line Received (-1): This code indicates transmission of the 
carriage return at the end of the data. The distinction 
between a new line transmission and a simple line transmission 
is, again, made only to allow preservation of the original out- 
put format . 

Not attached (1): If the virtual terminal accessed for the 
operation does not reference another virtual terminal, then 
this code is returned. 

Disconnect (5): This code value corresponds to the not-ready 
indication for real terminals; its specific meaning for vir- 
tual terminals is that the program at the other end of the chan- 
nel terminated either through PROGSTOP or operator 
i ntervent i on . 
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Break (8): The break code indicates that the other side of the 
channel is in a state (transmit or receive) which is incompat- 
ible with the attempted operation. If only one end of the chan- 
nel is defined with SYNOYES (on the TERMINAL statement), then 
the task on that end will always receive the break code, wheth- 
er or not it attempted the operation first. If both ends are 
defined with SYNC=YES, then the code will be posted to the task 
which last attempted the operation. The break code may thus be 
understood as follows: when reading (READTEXT or GETVALUE), 
the other program has stopped sending and is waiting for input; 
when writing (PRINTEXT or PRINTNUM), the other program is also 
attempting to write. Note that current Event Driven Executive 
programs, or future programs, which do not interpret the break 
code, must always communicate through a virtual terminal which 
is defined with SYNC=NO (the default). 



Example 



READTEXT OPTION , ' ENTER OPTION: ', 

READTEXT NAME, 'ENTER YOUR NAME: • 

READTEXT PASSWORD ,' ENTER PASSWORD 

READTEXT NEXT LINE , MODE=L INE 



PROMPT=COND 



,PROTECT=YES 



J 



OPTION TEXT 

NAME TEXT 

PASSWORD TEXT 

NEXTLINE TEXT 



LENGTH=2 
LENGTH=44 
LENGTH=8 
LENGTH=80 
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RESET 



i 



J 



Task Control 



RESET is used to reset or clear an event or a Process Interrupt. 

When an event occurs for which a task is waiting, the task will 
again become active. If the task were subsequently to issue 
another WAIT instruction for the same event, without taking any 
special action, the event is still defined as having occurred 
and no wait would be performed. It is necessary to define the 
event as not occurred in order to cause a new wait. This is the 
function of the RESET instruction. 

The RESET instruction need not be used for the event defined by 
the EVENT operand of either a PROGRAM or a TASK statement. 
RESET must not be used for this event prior to executing the 
ATTACH instruction* since RESET will cause the ATTACH to oper- 
ate as though the task were already attached. 

Events are named logical entities which are represented in 
storage by a system control block called an Event Control Block 
(ECB). Resetting an event is physically done by setting the 
first word of its ECB to 0. 

Syntax 






label 

Requ i red : 
Defaults : 



RESET event, PI 

event 
none 



Indexable: event 



Operands Descr i pt i on 

event The symbolic name of the event being reset. For 
process interrupt, use PIx, where x is a user proc- 
ess interrupt number in the range 1-99. 



Pl = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 
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RETURN 



Program Control 



RETURN is used in a subroutine to provide linkage back to the 
calling program. A subroutine can contain more than one RETURN 
i nstr uct i on . 



Syntax 



label 

Requ i red : 
Defaults: 



RETURN 

none 
none 



Indexable: none 






Operands Description 
none none 



O 
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Sensor Based I/O 



SBIO provides communication using analog and digital I/O. Many 
options provide flexibility. Optional automatic indexing is 
provided using the previously defined BUFFER statement. A 
buffer address in the SBIO instruction can be automatically 
updated after each operation. A short form of the instruction* 
omitting loc (data location) is provided. When used* a data 
address within the SBIOCB is implied. Options available with 
digital input and output provide PULSE output and the manipu- 
lation of portions of a group with the BITS=(u,v) keyword 
parameter . 

SBIO instructions are hardware address independent. The actual 
operation performed is determined by the definition of the sen- 
sor address in the referenced IODEF statement. 



An INPUT/OUTPUT CONTROL BLOCK (SBIOCB) is automatically 
inserted into the user's program for each referenced sensor I/O 
device. It supplies necessary information to the supervisor. 
These control blocks each contain two items* a data I/O area 
and an ECB. Nhen an SBIO instruction is executed, the supervi- 
sor either stores (AI and DI operations) or fetches (AO and DO 
operations) data from a location in the IOCB with the label 
equivalent to the referenced I/O point (for example* All, DI2, 
D033, A01). These locations may be referenced in the applica- 
tion program in the same manner as any other variable. This 
allows the user to use the short form of the SBIO instruction 
(for example* SBIO DID* and subsequently reference DIl k in 
other instructions. It may also be convenient to equate a more 
descriptive label to the symbolic names (for example SNITCH EQU 
DI15K However, the SBIO instruction must use the symbolic name 
as described above. 



^\___y 



Each control block also contains an ECB to be used by those 
operations which require the supervisor to service an inter- 
rupt and "post" an operation complete. These include analog 
input (AI), process interrupt (PI), and digital I/O with 
external sync (DI/DO). For process interrupt, the label on the 
ECB is the same as the symbolic I/O point (for example PIx). For 
analog and digital I/O the label is the same as the symbolic I/O 
point with the suffix 'END 1 (for example DIxEND). 

For brevity, operands common to all versions of SBIO are 
described here and not in the individual instruction 
descr i pt i ons . 
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ERROR= ERROR= specifies the label of the instruction to be 
executed if the SBIO instruction is unsuccessful 
after two retries. If ERROR is not coded, execution 
will proceed sequentially. In either case, the task 
code wordy whose implicit label is the task name, 
will contain the return code. The return codes are 
shown later in this section. 



EOB = 



EOB= may be specifie 
automatic indexing, 
fied label under two 
if the last element o 
cution of the SBIO, 
return code of $0K i 
the buffer is either 
(AO/DO) when the SBIO 
taken without execut 
SBFRPFE will be in t 
the buffer count is 
respons i b i 1 i ty . (S 
section) 



d for buffer operations with 
A branch is taken to the speci- 
conditions. In the first case, 
f the buffer is used during exe- 
the branch will be taken with a 
n the task name. Secondly, if 
full (AI/DI) or logically empty 
is executed, the branch will be 
ing the SBIO and a code of 
he task name. In either case, 
not reset. This is the user's 
ee 'Return Codes' in this 



INDEX A keyword used to specify that automatic indexing 
(incrementing of the effective address) of the 
defined BUFFER is to be performed as part of the exe- 
cut i on of this SBIO. 



BITS* BITS=(u,v) is used to specify the portion of a 
digital group or subgroup defined in the referenced 
IODEF, to be used in an I/O operation. BITS= may not 
be used with either AI, AO, DO PULSE or external sync 
DI/DO operations, u is the starting bit number 
(0-15) relative to the start of the defined group or 
subgroup, v is the length of the bit string (=1 to 
16-u, or as limited by the IODEF subgroup defi- 
nition). 
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Return Codes 






The task name is the label of a location which will contain a 
return code after a sensor based I/O operation. These codes 
should be referenced by the symbolic names shown in the return 
code table which follows* instead of by an absolute number* to 
allow future programming flexibility. If any sensor I/O is 
used* these labels are automatically defined. 



Code 


EQU 


Descr i pt i on 




-1 


$0K 


Command successful 




90 


$DNA 


Device not attached 




91 


$DNU 


Busy or in exclusive 


use 


92 


$BAR 


Busy after RESET 




93 


$CMDREJ 


Command reject 




94 


SINVREQ 


Inval i d request 




95 


$IDC 


Interface data check 




96 


SCTLBSY 


Contro 1 ler busy 




97 


$0VRV0LT 


AI over vo 1 tage 




98 


$INVRG 


AI i nva 1 i d range 




100 


$INVCHA 


AI invalid channel ( 


point) 


101 


$INVCNT 


Invalid count field 
(AI/DI/DO count) 




102 


$BFRPFE 


Buffer previously fu 
empty ( i ndex i ng ) 


11 or 


104 


SDCMDREJ 


Delayed command reject 



% £? 



For examp le ' 

SBIO AI1,ERR0R=AIERR 



AIERR IF 



(taskname,EQ,+$OVR VOLT), GOTO, REDO 



If All is over voltage go to label REDO. 

Note that the use of f +' when referencing equated 

values is necessary for proper assembler operation 



G 
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Analog Input 
Syntax 



label 

or 
label 

or 
label 

or 
label 



SBIO AIx,Pl= 

SBIO AIx,loc,Pl=,P2= 

SBIO A I x, loc, INDEX,E0B=,P1=,P2= 

SBIO AIx,loc,op3,SEQ=YES,Pl=,P2=,P3= 



Requ i red : AI x 

Defaults: no indexing! SEQ=NO 

Indexable: loc 



Operands Descr i pt i on 

AIx Analog input symbolic reference number defined in 
an IODEF statement and the label of a single data 
storage location if loc is not specified. 

loc Buffer address or location where analog input value 
is to be stored* if required. 

op3 If op3 equals INDEX then automatic indexing is 
used. If op3 is a label or constant then AI sequen- 
tial read i s used . 

SEQ = NO op3 is the number of times to repeat same point. 

SEQ=YES op3 is the number of consecutive AI points. 

The input voltage converted by the analog -to- 
digital converter CADC) is represented in a 16-bit 
data word by 11 binary bits plus a sign bit, depend- 
ing on the amplifier range selected. Bits 13 - 15 
of this word is the binary number representing the 
range of the AI reading. Bit 12 will be zero. 

Note : Refer to the 4982 Sensor I/O Description 
manual, for a detailed discussion of the analog- 
to-digital conversion. 
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Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) n on page 8 for 
further descriptions. 






Example ' SBIO instructions and IODEF statements for Read Ana- 
log Input 

IODEF AI1,ADDRESS=72,P0INT=5 



SBIO All 

SBIO All, DAT 

SBIO All, BUF, INDEX 

SBIO All, (BUF, #1) 

SBIO AI1,BUF,2,SEQ=YES 

SBIO All, BUF, 2 

or 

SBIO AI1,BUF,2,SEQ=N0 



DATA INTO LOCATION All 
DATA INTO LOCATION DAT 
All INTO NEXT LOC OF 'BUF' 
All INTO LOCATION (BUF,#1) 
READ 2 SEQUENTIAL AI PTS INTO 
NEXT 2 LOCATIONS OF 'BUF' 
READ THE SAME POINT TWO TIMES 
AND PUT INFORMATION IN TWO 
LOCATIONS OF BUFF 



Analog Output 



Syntax 



label 

or 
label 

or 
label 



a^v 



SBIO AOx,Pl= 

SBIO AOx,loc,Pl=,P2= 

SBIO AOx, loc, INDEX, EOB=,Pl=,P2= 



Requ i red : AOx 
Defaults? no indexing 
Indexable : loc 



Operands Descr i pt i on 

AOx Analog output symbolic reference number defined in 
an IODEF statement and the label of a single data 
storage location if loc is not specified. 

loc An explicit constant or an address of the location 
of the output data, if required. 



\_J 
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op3 
Px = 



SBIO 



If op3 equal INDEX then automatic indexing is used. 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Examp le : SBIO instructions and IODEF statements for Write Ana 
log Output 



IODEF A01,ADDRESS=63 

SBIO A01 

SBIO A01,DATA 

SBIO A01,1000 

SBIO A01,(0,#l) 

SBIO A01,BUF, INDEX 



SET A01 TO VALUE IN T A01 f 

SET A01 TO VALUE IN 'DATA" 

SET A01 TO 1000 

SET A01 TO VALUE IN (0,#1) 

SET A01 TO VALUE IN NEXT 



Digital Input 



Syntax 



label 

or 
label 

or 
label 

or 
label 

or 
label 



SBIO DIx,Pl= 

SBIO DIx,loc,Pl=,P2= 

SBIO DIx,loc,INDEX,EOB=,Pl=,P2= 

SBIO DIx,loc,BITS=(u, v) , LSB=,P1 = ,P2 

SBIO DIx, loc,op3,Pl=, P2=,P3= 



Requ i red : DIx 

Defaults: no i ndex i ng , LSB=15 

Indexable! loc 



Operands Descr i pt i on 

DIx Digital input symbolic reference number defined in 
an IODEF statement and the label of a single data 
storage location if loc is not specified. 
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SB 10 



loc 



Buffer address or location 
value is to be stored. 



where digital input 



4^\ 



op3 



If op3 = INDEX* automatic indexing is used* 



BITS=(u, v) 



If op3 is the label of a variable or a constant 
representing the count of external synchronization 
read cycles* external synchronization is implied 
and EXTSYNC must have been specified in the associ- 
ated IODEF statement. This form also provides a 
latched DI operation. The entire 16-bit group is 
read . 

If EXTSYNC was specified but op3 is not* then a sin- 
gle unsynchron i zed I/O operation is performed. 



This parameter indicates that the value of a 
portion of a DI group is to be read starting at bit u 
for a length v. Bits are numbered from - 15. Bit u 
is the relative bit number starting at 0, within the 
group or subgroup defined in the IODEF statement. 



LSB = 



This parameter may only be used if BITS= is 
specified in the SBIO statement. It defaults to bit 
15. Input data will be rightjustified to this bit 
with all unused bits set to 0. 



V 



J 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Example : SBIO instructions and IODEF statements for Read Dig- 
i tal Input • 
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IODEF DIl,TYPE=GROUP,ADDRESS=49 

IODEF D I 2, TYPE = SUBGROUP, ADDRESS = 48, BITS' 

IODEF DI3,TYPE=EXTSYNC,ADDRESS=6 2 



C7,3) 



SBIO 



SBIO DI1 

SBIO DI1,DATA 

SBIO DI1,C0,#1) 

SBIO DI1,BUF, INDEX 

SBIO D II, BOAT, BITS* (3, 5) 



DATA INTO LOC f DIl ? 

DI1 INTO LOC 'DATA 1 

DI1 INTO LOC (0,#1) 

DI1 INTO NEXT LOC OF 'BUF' 

BITS 3 TO 7 OF DI1 INTO 'BDAT' 



SBIO DI2 

SBIO DI2,DAT2 

SBIO DI2,D,BITS=(0,3) 

SBIO DI2,E,BITS=(0,1) 

SBIO DI2,F,BITS=(2,1) 

SBIO DI3,G,128 



BITS 7-9 OF 
BITS 7 TO 9 
BITS 7-9 OF DI2 INTO 
BIT 7 OF DI2 INTO T E f 
LSB=7 BIT 9 OF DI2 INTO 
LOCATION F BIT 7 
READ 128 WORDS INTO 
USING EXTERNAL SYNC 



DI2 INTO f DI2' 

OF DI2 INTO »DAT2 f 

D' 






Digital Output 



Syntax 



label 


SBIO 


DOx,Pl= 




or 








label 


SBIO 


DOx, loc,Pl=, P2= 




or 








label 


SBIO 


DOx,loc,INDEX,EOB=,Pl=,P2= 




or 








label 


SBIO 


DOx,loc,BITS=(u,v) ,LSB=,P1= 


,P2 = 


or 








label 


SBIO 


DOx,loc,op3,Pl=,P2=,P3= 




or 








label 


SBIO 


DOx, (PULSE, dir) 




Requ i red : 


DOx 






Defaults : 


no i n 


dexing, LSB=15 




Indexable *• 


loc 







Operands 



Descr iption 
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DOx 



Digital output symbolic reference number defined in 
an IODEF statement and the label of a single data 
storage location if loc is not specified. 



loc 



An explicit constant or an address where data to be 
written is stored. Data must be right justified. 



op3 



If o p 3 equal INDEX then automatic indexing is used. 
If op3 is a label or constant then external sync is 
used . 



BITS=(u,v) This parameter indicates that the specified value 
is to be written into a portion of the DO group 
starting at bit u for a length of v, without affect- 
ing the condition of the other bits of the same 
group. Bits are numbered from - 15. Bit u is the 
relative bit number (starting at 0, within the 
group or subgroup defined in the referenced IODEF 
statement . 



LSB = 



This parameter may only be used if BITS= is coded on 
the SBIO statement. It defaults to bit 15. Output 
data will be taken from the output word with this 
bit being the least significant bit. 



(PULSE»dir) Specifies a pulse is to 

associated digital output 

Directions accepted are ON 
DONN) . 



be generated on the 

group or subgroup. 

(or UP) and OFF (or 






Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands ( P x = ) " on page 8 for 
further descriptions. 
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Example 

Wr i te 

IODEF 
IODEF 
IODEF 

SBIO 
SBIO 
SBIO 
SBIO 
SBIO 

SBIO 
SBIO 

SBIO 
SBIO 



SBIO instructions and IODEF statements? 

Digital Output 

D0 3,TYPE=GR0UP,ADDRESS=4B 

D012,TYPE=SUBGR0UP,ADDRESS=4A,BITS=(5,4) 

D013,TYPE=EXTSYNC,ADDRESS=4F 



D03 

D03,DODATA 

DO3,1023 

D03, (DATA,#1) 

D03,7,BITS=(3,3) 

D012,15 
D012,X,BITS=(0,4), 

DO12,l,BITS=(0,l) 
D013,Y,80 



VALUE OF LOCATION »D03 f to D03 

VALUE OF f DODATA T TO D03 

SET D03 TO 1023 

VALUE AT (DATA,#1) TO D03 

SET BITS 3 TO 5 OF D03 TO 7 

SET BITS 5 TO 8 OF D012 TO 15 
SET BITS 5 TO 8 OF D012 

TO VALUE IN f X* 
SET BIT 5 OF D012 TO 1 
WRITE 80 LOCATIONS OF 'Y ? 
TO D013 EXTERNAL SYNC 






Example ♦ Pulse Digital Output: 



IODEF 
IODEF 

SBIO 

SBIO 



D013,TYPE=SUBGROUP,BITS=(3,l) 
D014,TYPE=SUBGR0UP,BITS=(7,4) 



D013, (PULSE, UP) 
D014, (PULSE, DOWN) 



PULSE D013 BIT 3 TO ON 

AND THEN OFF 

PULSE D014 BITS 7-10 

OFF AND THEN ON 



O 
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SCREEN 



i 'i j 



Graph 1 cs 



SCREEN converts x and y numbers representing a point on the 
screen of a terminal to the ^-character text string which will 
be interpreted by the terminal as the graphic address of the 
point. The length of the text string is set to 5 if CONCAT=NO 
and ENHGR=YES. The length of the text string is set to 4 if 
CONCAT=NO and ENHGR=NO. Used with CONCAT, this instruction can 
build a graphical message to the terminal. 

Syntax 



label 

Requ i red : 
Defaults : 
Indexable? none 



SCREEN text,x,y,C0NCAT=,ENHGR=,Pl=,P2=,P3= 

text > x , y 
CONCAT=NO,ENHGR=NO 






Operands 

text 

x,y 



CONCAT= 



ENHGR= 



Px = 



Description 

Location of text string at least 4 characters long. 

Screen coordinates of point to be translated. 
Range is to 1023 for full width of the screen and 
to 779 for the screen height. Operands x and y may 
be locations containing data or explicit values, 
but both must be of the same type. Refer to ENHGR 
below for enhanced range of to 4086. 

YES - Allows the concatenation of this conversion 
to whatever is already in text. The text string 
length is modified plus 4 or (plus 5 if ENHGR=YES is 
coded ) . 

YES - Extends the range to to 4095 for full width 
of the screen and to 3120 for the screen height. 
Nhen coded YES, a 5 character graphical instruction 
i s compi led . 



Parameter naming operands. See 
Parameter Naming Operands (Px=)" 
further descriptions. 



"Use of The 
on page 8 for 



o 
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SHIFTL 



Data Manipulation 



Contents of operand 1 are shifted left by the number of bit 
positions specified by operand 2. Vacated positions on the 
right are filled with zeroes. If operand 2 is a variable, it is 
assumed to be single-precision, and the shift count is its val- 
ue. If the value exceeds the precision in bits, of operandi, 
the value is divided by the precision and the remainder is used 
in place of the original value. 



Syntax 



j^y 



label 



Requ i red ' 
Defaults : 
Indexab le : 



SHIFTL opndl,opnd2, count, RESULT=, 
P1=,P2=,P3= 

opndl , opnd2 
count=l,RESULT=opndl 
opndl, opnd2, RESULT 



Operands Descr i pt i on 

opndl The name of the variable to which 
applies; it cannot be a constant. 



the operation 



opnd2 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit constant may be specified. 



count 



Specify the number of consecutive variables in 
opndl upon which the operation is to be performed. 
The maximum value allowed is 32767. 



o 



The count operand can include the precision of the 
data. Because these operations are parallel (the 
two operands and the result are implicitly of like 
precision) only one precision specification is 
required. That specification may take one of the 
f ol lowi ng forms : 

BYTE -- Byte precision 

WORD — Word precision * 

DWORD -- Doubleword precision 
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RESULT= 



This operand may optionally be coded with the name 
of a variable or vector in which the result is to be 
placed. In this case the variable specified by the 
first operand is not modified. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Examp le 

SHIFTL A, 2 



SHIFT A LEFT 2 BIT POSITIONS 



v> 



o 
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SHIFTR 



Data Manipulation 



Contents of operand 1 are shifted right by the number of bit 
positions specified by operand 2. Vacated positions on the left 
are filled with zeros. If operand 2 is a variable it is assumed 
to be single-precision* and the shift count is its value. If 
the value exceeds the precision in bits* of operandi* the value 
is divided by the precision and the remainder is used in place 
of the original value. 



Syntax 



c 



label 



Requ i red : 
Defaults : 
Indexable : 



SHIFTR opndl *opnd2, count* RE SULT=, 
P1=,P2=,P3= 

opndl *opnd2 
count=l*RESULT=opndl 
opndl ,opnd2*RESULT 



Operands Descr i pt i on 

opndl The name of the variable to which 
applies* it cannot be a constant. 



the operation 



opndZ 



This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit constant may be specified. 



count 



Specify the number of consecutive variables in 
opndl upon which the operation is to be performed. 
The maximum value allowed is 32767. 



The count operand can include the precision of the 
data. Because these operations are parallel (the 
two operands and the result are implicitly of like 
precision) only one precision specification is 
required. That specification may take one of the 
f ol lowi ng forms s 

BYTE — Byte precision 
WORD — Word precision 
DWORD — Doubleword precision 
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RESULT= 



This operand may optionally be coded with the name 
of a variable or vector in which the result is to be 
placed. In this case the variable specified by the 
first operand is not modified. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Examp le 

SHIFTR C, 24, DWORD, RESULT = E 



SHIFT C RIGHT 24 BITS, 
STORE RESULT AT E 






^kshii*^ 
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SPACE 



Listing Control 



The SPACE statement is used to insert one or more blank lines in 
the 1 i st i ng . 



Syntax 



blank 

Requ i red : 
Defaults: 



SPACE value 

none 
value = 1 






Qperandg Pqscript jop 

value A decimal value specifying the number of blank 
lines to be inserted. If no value is entered, one 
blank Mill be inserted. If this value exceeds the 
number of lines remaining on the page then the 
statement will have the same effect as an EJECT 
statement. 
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SPECPIRT 



SPECPIRT is used to return to the supervisor from a special 
process interrupt (SPECPI) routine. If the user routine is in 
partition 1 > a branch instruction is used to return. Return 
from another partition requires execution of a Series/1 assem- 
bler SELB instruction after registers RO and R3 are saved in 
the level block to be selected. SPECPIRT is used only for 
TYPE=BIT SPECPI routines. See the description of IODEF 
(SPECPI) for additional information. 



label 

Requ i red : 
Defaults : 



SPECPIRT 

none 
none 



Indexable: none 



Operands Description 
none none 



'l 
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SQRT 



Data Manipulation 



This instruction is used to find the square root of a double 
precision integer variable. The instruction is implemented 
through the USER instruction facility. It is not included in 
the supervisor. Implementation of this instruction is 
described further in the Utilitiest Operator Commands* Program 
Preparation* Messages and Codes as an example of how the user 
may add new instructions to the Event Driven Executive 
instruction set. If the program is assembled with SEDXASM, 
SLINK must be used to include the SQRT object module ($$SQRT). 
The autocall feature of SLINK may be used. For details on the 
use of the autocall feature* see the Utilities* Operator 
Commands* Program Preparation* Messages and Codes . 



Syntax 



label 

Requi red : 
Defaults J 
Indexable 



SQRT 



rsq, root, rem, P1=,P2=,P3= 



rsq , root , rem 

none 

none 



Operands Descr i ot i on 

rsq The name of a double precision integer that the 
square root routine is to use. This value must be 
between and 1 , 073, 741 , 823 i nclus i ve . 



root 



The name of a single precision integer where the 
square root is to be stored. 



rem 



The name of a single precision integer where the 
remainder is to be stored. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 
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STATUS 






Data Def i n i t i on 



STATUS is used to define the fields required for referencing a 
record in the "System Status Data Set" on the host computer. 

A STATUS statement is referenced by the TP SET, TP FETCH, and TP 
RELEASE instructions. See 'Host Communications', in the 
Communications and Terminal Applications Guide for a 
description of these instructions and the System Guide for a 
description of the "System Status Data Set". 

Syntax 



label 



STATUS index,key,length,Pl=,P2=,P3= 



Required: label , i ndex , key 
Defaults: length=0 
Indexable J none 






Operands Descr i pt i on 

index A 1 - 8 alphameric character string. This defines 
an index in the status data set. One or more 
entries may be associated with this index, each 
with a unique key field. It is suggested that a 
unique index be specified for each Series/1, but 
this is not a requirement. 

key A 1 - 8 alphanumeric character string. The index 
and key together define a unique status data set 
entry. A different key might be used for each 
application program on a Series/1 which communi- 
cates to a host . 

length Specifies the length of an optional buffer to be 
used in the SET, FETCH, and RELEASE functions of the 
TP i nstruct i on . 



The maximum buffer length, which may be specified 
in bytes, is 256. If this operand is omitted, no 
buffer is defined. If a buffer is specified with a 
length greater than 0, then it may be named by using 



o 
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the Px= operand . 



The contends of the buffer can be stored in the Sys- 
tem Status data set with a TP SET instruction. For 
a TP FETCH or TP RELEASE, this buffer will serve as 
an i nput area . 



Pl = 



Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px*O w on page 8 for further 
descr i pt i ons . 
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STIMER 



Timing 



STIMER is used to start a software timer and provide an inter- 
rupt after the specified number of milliseconds have elapsed. 
It allows a means of periodically executing a portion of the 
user task or providing program delays. The minimum timer set- 
ting is 1 millisecond and the maximum setting is 60*000 milli- 
seconds or 60 seconds. 

Note : When using a model 4952 or 4953 Processor the minimum 
setting should not be less than 3 milliseconds. 

STIMER may be used in conjunction with the NAIT instruction. 

Two STIMER instructions without an intervening WAIT will cause 
the time interval specified by the first STIMER to be replaced 
by the interval specified by the second STIMER. 



Syntax 



label STIMER count , WAIT , Pl= 

Requ i red : count 

Defaults : none 

Indexable: count 



( ] 



Operands Description 

count The address of a word* or an explicit constant* 
which specifies the timer setting in milliseconds. 
The value is an unsigned* 16 bit integer. 



WAIT 



Specifies that control will not return to the next 
instruction until the time interval has elapsed. 
If WAIT is not specified* then a subsequent WAIT 
instruction must be issued with the keyword 'TIMER* 
specified as the event being waited upon. 



Pl = 



Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px=)" on page 8 for further 
descr i pt i ons . 
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SUBROUT 



Program Control 



SUBROUT is used to define the entry point of a subroutine. Up 
to five parameters may be specified as arguments in the subrou- 
tine. The subroutine must have a RETURN instruction to provide 
linkage back to the calling task. Nested subroutines are 
allowed* and a maximum of 99 subroutines are permitted per 
Event Driven Executive program. If a subroutine is to be 
assembled as an object module which can be link-edited* an 
ENTRY statement must be coded for the subroutine entry point 
name . 

A subroutine may be called from more than one task. When 
called* the subroutine will execute as part of the calling 
task. If the subroutine is not re-entrant* it may be desirable 
to enforce serial usage of the subroutine using ENQ/DEQ 
i nstruct i ons . 






The TASK statement must not be coded in a subroutine. 
Syntax 



label 

Requ i red : name 

Defaults: none 

Indexable: none 



SUBROUT name * par 1 * . . . »par 5 



Operands Descr i Pt i on 

name Name of the subroutine. 

pari*... Names used within the subroutine for arguments or 
parameters passed from the calling program. These 
names must be unique to the whole program. All 
parameters defined outside the subroutine are known 
within the subroutine. Thus, only parameters which 
may vary with each call to a subroutine need to be 
defined in the SUBROUT instruction. These parame- 
ters are defined automatically as single precision 
values . 
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SUBROUT 



For instance* assume two calls to the same subrou- 
tine. At the first* parameters A and C are to be 
passed* while at the second* B and C are to be 
passed. Because C is common to both* it need not be 
defined in the SUBRDUT statement. However* a new 
parameter D would be specified to account for pass- 
ing either A or B. 



u 
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SUBTRACT 



Data Manipulation 

Signed subtraction of operand 2 from operand 1 . May be abbrevi- 
ated SUB. 

Note : An overflow condition is not indicated by EDX. 

Syntax 



label 



SUBTRACT opndl, opnd2, count, RESULT* , PREC= , 
P1=,P2=,P3= 



Required: opndl, opnd2 

Defaults: count=l,RESULT=opndl,PREC=S 

Indexable: opndl , opnd2 > RESULT 



Operands Descr i pt i on 

opndl The name of the variable to which the operation 
applies, it cannot be a constant. 

opnd2 This operand determines the value by which the 
first operand is modified. Either the name of a 
variable or an explicit constant may be specified. 

count Specify the number of consecutive variables in 
opndl upon which the operation is to be performed. 
The maximum value allowed is 32767. 

RESULT= This operand may optionally be coded with the name 
of a variable or vector in which the result is to be 
placed. In this case the variable specified by the 
first operand is not modified. 

PREC = XY2 Where X applies to opndl, Y to opnd2, and Z to the 
result. The value may be either S (single- 
precision) or D (double-precision). 3-operand 
specification may be abbreviated according to the 
f ollowi ng rules J 

If no precision is specified, then all operands 
are single-precision. 
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If a single letter (S or D) is specified) then 
it applies to the first operand and result* 
with the second operand defaulted to single- 
prec i 5 i on . 

If two letters are specified, then the first 
applies to the first operand and result, and 
the second to the second operand. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Mixed Precision Operations ? Allowable precision combinations 
for subtract operations are listed in the following tablet 



opndl 



opnd2 



Result 



Abbrevi ation 



Remarks 



S 

SSD 
D 
DD 



default 



Example. 

SUB 
SUB 



\~y 



A,B 

A, (2, #2) 



single-precision subtract 
subtract data at (2, #2) from A 



^L»^ 
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TASK 



Task Control 



The TASK statement defines the beginning of a block of 
instructions which will execute asynchronously with the 
attaching task, (and other tasks in the system), according to 
its assigned priority. 

Note t TASK statements may only be coded within main programs, 
not within subprograms which will later be link edited to a 
ma i n program . 

Each task in a program, except the initial task, begins with a 
TASK statement and must be terminated with an ENDTASK. The 
initial task begins with the PROGRAM statement and is termi- 
nated by ENDPROG. 

Syntax 



taskname 



Requ i red * 
Defaults: 
Indexable : 



TASK start,priority,EVENT=,TERMERR=,FLOAT=, 
ERRXIT* 

taskname » start 

priority=15Q,FL0AT=N0 

none 



Operands Descr i pt i on 

taskname The name of the task. A system control block is 
generated for each task in an application program. 
This is known as the task control block (TCB). The 
first word of the TCB is assigned the name specified 
in the taskname operand. This word is known as the 
task code word and has special significance in pro- 
gram operation. For example, in I/O operations, it 
is used to store a return code for the user. Thus, 
the task name may be used in an IF instruction to 
test for a successful completion of an I/O oper- 
ation. 



start 



The label of the first instruction to be executed 
when the task is first attached. 
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priority The priority to be assigned to the task. The range 
is from 1 (highest priority) to 510 (lowest priori- 
ty). Tasks with priorities 1-255 are run in fore- 
ground (Interrupt Level 2 ) and those with 256-510 
are run in background (Interrupt Level 3). 






Priorities separate tasks according to their real 
time needs for processor tine. Priority assign- 
ments must therefore account for other programs 
expected to be executing simultaneously 

EVENT= Name of an end event. This event will be posted 
complete at the termination of this task. The 
attaching task can, if desired, synchronize its 
operation by issuing a WAIT fdr this event. This 
event name must not be defined explicitly by an ECB 
since it will be generated automatically. 



TERMERR= 



FL0AT= 



See "Error Handling" on page 44 for a description of 
the use of this operand. 

Specify FL0AT=YES if floating-point instructions 
are used by this task. 



ERRXIT= Specifies the label of a 3 word list which points to 
a routine which is to receive control if a hardware 
error or program exception occurs while the primary 
task is executing. This task error exit routine 
must be prepared to completely handle any type of 
program or machine error. See the System Guide 
section on Task Error Exits before attempting to 
use the operand . 



H^y 



If the primary task is part of a program which 
shares resources such as QCBs , ECBs, or Indexed 
Access Method update records with other programs, 
it is often necessary to release these resources 
even though your program cannot continue because of 
an error. The supervisor does not release 
resources for you, but the task error exit facility 
enables you to take whatever action that is appro- 
pr i ate . 

The format of the task error exit list is: 



^a^J^ 
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WORD 1 



TASK 



The count of the number of parameter 
words which follow (always F f 2') 



WORD 2 The address of the user's error exit 
rout i ne 

WORD 3 The address of a 24 byte area in 

which the Level Status Block (LSB) 
and Processor Status Word (PSW) 
from the point of error are placed 
before the exit routine is entered. 
Refer to a Series/1 processor 
description manual for a description 
of the LSB and PSW. 

Examp le t See "Example 7: A Two Task Program With ATTNLIST" on 
page 395 for TASK coding example. 



o 
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TERMCTRL 



Termi nal I/O 



The TERMCTRL instruction is used to request execution of 
special terminal control functions. These functions are gen- 
erally device dependent; the form of the instruction depends on 
the device. 

| TERMCTRL may be used with the following device types? 



Devi ce 

2741 Communications 
Terminal 

4013 Graphics Terminal 

4973 Printer 

4974 Printer 
4978 Display 

49 79 Display 

ACCA devices 

Teletypewriter 

equivalent devices 

Virtual terminals 
(DEVICE=VIRT) 

Other processors 
(DEVICE=PROC) 



Examples of Functions 

Set the attention function 

Set the attention function 

Set 1 i nes per inch 

Set the 4974 control storage 

Write or read 4978 storage 
Blink the cursor 
Blank the screen 

Blank the screen 
Lock/unlock the keyboard 

Control the modem 

Write buffered output 



Set the attention function 
Pass function codes 

Same as Virtual terminals 






| The syntax of TERMCTRL* by device* is as follows: 



^ItoaaJ^ 
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TERMCTRL 



I 2741 Communications Terminal 

I Syntax 

I 



labe 1 



TERMCTRL f unc t i on , ATTN= 



Required? function 
Defaults J none 
Indexable : none 



^> M i i ,i* > > ' 



| Operands 
| f unct i on : 



| ATTN= 



I Examp les »' 



SETATTN 
NRITEPTR 



Description 



SET 



DISPLAY 



Enables the attention function 
for the device (when ATTN=YES) 
or disables the attention 
function for the device 
(when ATTN=NO). 

Causes any buffered output to 
be written to the 2741. 



N0> to disable the attention function. 

YES# to enable the attention function. 

This operand must be used in conjunction with the 
SET f unc t ion. 



TERMCTRL SET,ATTN=YES 
TERMCTRL DISPLAY 
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4013 Graphics Terminal 
Syntax 



label 



TERMCTRL f unct i on , ATTN= 



Required: function 
Def au 1 ts : none 
Indexable: none 



Operands 
f unct i on 



Descr i pt i on 



| ATTN* 



SET 



DISPLAY 



Enables the attention function 
for the device (when ATTN=YES) 
or disables the attention 
function for the device 
(when ATTN=N0). 

Causes any buffered output to 
be written to the 4013. 



NO, to disable the attention function. 






I Examples : 



YES, to enable the attention function. 



This operand is required when function is SET 



ATTNOFF TERMCTRL SET,ATTN=NO 
WRITEPTR TERMCTRL DISPLAY 



\_J 
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I 4973 Printer 

I Syntax 

I 



label 



TERMCTRL f unct i on , LPI = 



Required: function 
Defaults : none 
Indexable: none 



I Operands 
| f unct i on : 



LPJ> 



| Examples » 



SETLPI6 
WRITEPTR 



Descr i pt i on 



SET 



DISPLAY 



Sets the number of lines 
per inch. When SET is 
specified, the LPI operand 
i s requ i red . 

Causes any buffered output to 
be written to the 4973. 



The number of lines, either 6 or 8, the 4973 is to 
print per inch. This operand is required when func- 
tion is SET . 



TERMCTRL SET,LPI=6 
TERMCTRL DISPLAY 
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I 4974 Printer 
| Syntax 

l 



y 



label 



TERMCTRL function, opl, op2, count, TYPE= 



Required: function 
Defaults s none 
Indexable: opl,op2 



Operands Descr i pt i on 
f unct i on J 

DISPLAY 

PUTSTORE 



opl 



op2 



count 



TYPE = 



GETSTORE 



Causes any buffered output to 
be written to the 4974. 

Transfers control data from 
the processor to the 4974 
wire image buffer. If PUTSTORE 
is specified, operands opl, op2, 
count, and TYPE are required. 

Transfers control data from the 
4974 wire image buffer to the 
processor. If GETSTORE is specified, 
operands opl, op2, count, and 
TYPE are required. 



The address in the processor from which or into 
which the information is to be transferred. 
Required when function is PUTSTORE or GETSTORE. 

The address in the 4974 wire image buffer to which 
or from which the information is to be transferred. 
Required when function is PUTSTORE or GETSTORE. 



,>T~ 'X 



\^_j? 



The number of bytes to be transferred, 
when function is PUTSTORE or GETSTORE. 



Requ i red 



The type of GETSTORE/PUTSTORE operation to be 
performed . 

1, to transfer data between the processor and the 
4974 wire image buffer. If 1 is specified, function 
must be either PUTSTORE or GETSTORE. 



^ki^^Jr 



292 SC34-0314 



o 



TERMCTRL 



2, to indicate that the 4974 wire image buffer is to 
be initialized with the standard 64-character 
EBCDIC set. If the count operand is zero* no data 
is transferred. If the count is 8 or less, each bit 
of the data string indicates replacement (1) or 
non-replacement (0) of the corresponding character 
in the standard set with the alternate character as 
defined in the attachment. If 2 is specified, func- 
tion must be PUTSTORE. 



Example 1 : Initialize a 49 74 wire image buffer 
TERMCTRL PUTSTORE ,*,*, , TYPE=2 



Example 2 : Initialize the 4974 wire image buffer to the stand- 
ard EBCDIC character set and replace the standard dollar sign 
($) with its alternate, the English sterling symbol (hex code 
5B) and the standard cent sign ($) with its alternate, dollar 
sign ($), (hex code 4A). 



REPLACE 



TERMCTRL PUTSTORE , REPLACE ,, 2 , TYPE =2 
DATA X f 1200' 



"X 
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4978 Pi splav 

Syntax 






label 



TERMCTRL f unct i on , op 1 , op 2 , count , TYPE = , ATTN = 



Required: function 
Defaults: none 
Indexable: opl,op2 



I Operands 
| function 



Descr i Pt i on 



BLANK 



DISPLAY 



TONE 

BLINK 

UNBLINK 

LOCK 
UNLOCK 



Inhibits display of the 
contents of the 4978 screen. 
The contents of the internal 
buffer remain unchanged. If 
specified* no other operands 
are requi red . 

Causes the screen contents 
to be displayed if previously 
blanked by the BLANK function. 
Any buffered output is also 
displayed and the cursor 
position is updated 
accord i ngly . 

Causes the audible alarm to 
be sounded if the audible 
alarm is installed. 

Sets the cursor to the blinking 
state . 

Sets the cursor to the 
non-blinking state. 

Locks the keyboard. 

Unlocks the keyboard. 



V.V 



G 
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SET 



PUTSTORE 



GETSTORE 



TERMCTRL 



Enables the attention function 
for the device (when ATTN=YES) 
or disables the attention 
function for the device 
(when ATTN=NO). 

Transfers data from the processor 
to storage in the 4978. If specified* 
operands opl* op2> count* and TYPE= 
are requ i red . 

Transfers data from storage in the 
4978 to the processor. If specified* 
operands opl* op2* count* and TYPE 
are requ i red . 



opl 



The address in the processor from which 
which the data is to be transferred. 



or i nto 



op2 

| count 
| ATTN= 



TYPE* 



The address in 4978 storage to which or from which 
data is to be transferred. 

The number of bytes to be transferred. 

NO* to disable the attention function. 

YES* to enable the attention function. 

This operand must be used in conjunction with the 
SET f unct i on . 

1* to indicate access to the character image buffer 
(a 2048-byte table, 8 bytes for each of the EBCDIC 
codes ) . 

2* to indicate access to the control store (4096 
bytes). The end condition (required when writing 
the control store) may be indicated by setting bit 
on in the second operand. For example* to write the 
last 1024 bytes of the control store (#2 contains 
the control store address)* code the following: 

TERMCTRL PUTSTORE , BUFFER , (X f 8000 T ,#2),1024,TYPE=2 

4* to indicate transfer of the field table from the 
device to the processor. If this option is speci- 
fied* function must be GETSTORE. The input area 
must be defined with a BUFFER statement. At 
completion of the operation* the number of field 
addresses stored (addresses of unprotected fields) 
is placed in the control word at BUFFER-4. 
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5 , to indicate transfer of the field table from the 
device to the processor. If this option is speci- 
fied* function must be GETSTORE. A field table is 
transferred as for TYPE=4, but the addresses are 
those of the protected fields. 



6, to indicate that the field table transferred 
contains only the addresses of modified fields. If 
this option is specified, function must be 
GETSTORE. 

7, to indicate that the field table transferred 
contains address of the protected portions of modi- 
fied fields. If this option is specified, function 
must be GETSTORE. 



Examples ' 

TERMCTRL BLANK 



* BLANK SCREEN 

* MODIFY DISPLAY 



PRINTEXT LINE=A,SPACES=B * DEFINE CURSOR POSITION 
TERMCTRL DISPLAY * ENABLE DISPLAY 

TERMCTRL GETSTORE , BUFFER , , 2048 , TYPE=1 * READ 4978 

* IMAGE STORE 



\_ 
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| 4979 Display 
I Syntax 



label 



TERMCTRL f unct i on , ATTN= 



Required: function 
Defaults: none 
Indexable: none 



I Operands 
| f unct i on 






Descr i pt i on 



BLANK 



DISPLAY 



| ATTN= 



Inhibits display of the 
contents of the 4979 screen. 
The contents of the internal 
buffer remain unchanged. If 
specified* no other operands 
are requ i red . 

Causes the screen contents 
to be displayed if previously 
blanked by the BLANK function. 
Any buffered output is also 
displayed and the cursor 
position is updated 
accord i ngly . 

Locks the keyboard. 

Unlocks the keyboard. 

Enables the attention function 
for the device (when ATTN=YES) 
or disables the attention 
function for the device 
Cwhen ATTN=NO) . 



NO, to disable the attention function. 



LOCK 

UNLOCK 

SET 



YES, to enable the attention function. 
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This operand must be used in conjunction with the 
SET f unct i on . 



I Examples : 

TERMCTRL BLANK 



PRINTEXT LINE=A,SPACES=B 
TERMCTRL DISPLAY 



* BLANK SCREEN 

* MODIFY DISPLAY 

* DEFINE CURSOR POSITION 

* ENABLE DISPLAY 



V-V 



o 
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ACCA Attached Devices 
Syntax 



label 



TERMCTRL function 



Required: function 
Defaults: none 
Indexable: none 



Operands 
f unct i on : 



Descr i pt i on 



RING 



RINGT 



ENABLE 



Waits until the Ring Indicator 
(RI) is presented to the Series/1 
from the modem. No timeout is 
prov i ded . 

Waits until the Ring Indicator (RI) 
is presented to the Series/1 from 
the modem. If no Ring . Indi cator 
(RI) occurs after 60 seconds* this 
instruction is terminated 
and an error condition is 
returned to the application program 
in the first word of the TCB. 

Activates Data Terminal Ready (DTR) 
if not jumpered on and waits for 
Data Set Ready (DSR) to be 
returned by the modem. No timeout 
i s prov i ded . 



O 
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ENABLET Activates Data Terminal Ready (DTR) 
if not jumpered on and waits for 
Data Set Ready (DSR) to be returned 
by the modem. If Data Set Ready 
(DSR) is not returned within 15 
secondsi the instruction is 
terminated and an error condition 
is returned to the application 
program in the first word of the 
TCB. 

ENABLEA Activates Data Terminal Ready (DTR) 
if not jumpered on and waits for 
Data Set Ready (DSR) to be 
returned by the modem. When Data 
Set Ready (DSR) is returned} an 
answer tone is activated for three 
seconds. The modem must allow for 
the control of the answer tone. 



~Y 



ENABLEAT 



Combines the 
and ENABLEA. 



functions of ENABLET 



DISABLE Disables Data Terminal Ready (DTR) 
if not jumpered on and waits for 15 
seconds. This function is used to 
disconnect (hang up) the modem. 






| Examples ♦ 



TERMCTRL 
TERMCTRL 



RING 
DISABLE 



* WAIT WITH NO TIMEOUT 

* BREAK COMMUNICATION 



^UoaJ' 
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TERMCTRL 



I ACCA Support Return Codes 



Following each TERMCTRL instruction that is issued by an appli- 
cation program to an ACCA device, a return code is provided in 
the first word (taskname) of the TCB. The bits of the first 
word are interpreted as follows: 



-1 



Successful completion. 



Bit 



Descr i pt i on 



Unused 

1-8 ISB of last operation (I/O complete) 

9-10 Unused 

11 1 if a write or control operation (I/O complete) 

12 Read operation (I/O complete) 

13 Unused 

14-15 Condition code +1 after I/O start (or) 
Condition code after I/O complete 



| Figure 15. Terminal I/O - ACCA Return Codes 
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Teletypewriter Equivalent Devices 

Syntax 






label 



TERMCTRL f unct i on , ATTN = 



Required? function 
Defaults: none 
Indexable * none 



I Operands 
| function: 



| ATTN = 



I Examples : 



SETATTN 
WRITEPTR 



Descr i ot i on 



SET 



DISPLAY 



Enables the attention function 
for the device (when ATTN^YES) 
or disables the attention 
function for the device 
(when ATTN=NO). 

Causes any buffered output. to 
be written to the teletyp writer. 



w 



NO, to disable the attention function. 

YES, to enable the attention function. 

This operand must be used in conjunction with the 
SET f unct i on . 



TERMCTRL SET,ATTN=NO 
TERMCTRL DISPLAY 
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I Virtual Terminal 
I Syntax 



label 



TERMCTRL f unct i on , code , ATTN= 



Required: function 
Defaults : none 
Indexab le : none 



Operands 
function 






Descr i pt i on 



PF 



code 



Causes a simulated attention 
interrupt or program function key 
interrupt to be presented if the 
program is communicating with 
another program in the same 
processor (DEVICE=VIRT) or with a 
program in another processor 
(DEVICE=PROC) , 

If the code is not specified or is 
zero* the keyboard task responds to 
the next READTEXT with »> f and waits 
for an attention list code to be 
returned. If code has a non-zero 
value* x, the attention list code 
$PFx is automatically generated and 
the '> ' response does not occur. 

note i The "code* may be a 
self-defining term or a variable 
containing the desired value. 

Enables the attention function 
for the device (when ATTN=YES) 
or disables the attention 
function for the device 
(when ATTN=NO). 



The attention or PF key value to be presented when 
using the PF function. This operand determines the 
attention or function key value. 



SET 
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ATTN' 



NO, to disable the attention function. 



o 



YES» to enable the attention function. 



This operand must be used in conjunction with the 
SET f unct ion. 






\^J 
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TEXT 



TEXT 



Data Def i n i t i on 



TEXT is used to define a standard text message or text buffer. 
The characters are stored in EBCDIC or ASCII code. The PRINTEXT 
instruction may be used to print this message buffer on a ter- 
minal. READTEXT may be used to read a character string from a 
terminal into the TEXT buffer. A count field is maintained as 
part of the TEXT buffer and indicates the number of characters 
in the message received or to be printed. The contents of the 
buffer Mill be J 



BYTE 


CONTENT 





Length 


1 


Count 


2 


First byte of text 



(addressed by 'label') 
For a diagram of a buffer layout see Figure 16 on page 307. 
Syntax 



label 

Requ i red : 
Defaults: 



TEXT 'message' , LENGTH= , C0DE= 



'message ' 
C0DE=E 



Indexable: none 



or LENGTH= 

EBCDIC is the standard internal 
representation of all character 
data 



Operands Descr i pt i on 

label Refers to the address of first byte of text. Used in 
GETEDIT, PUTEDIT, READTEXT, and PRINTEXT. 

'message' Any text string defined between apostrophes. If 
this operand is not coded, LENGTH must be coded and 
the buffer will be filled with EBCDIC spaces. The 
count field will equal the actual number of charac- 
ters between apostrophes and if LENGTH is not 
coded, LENGTH = count . 
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TEXT 



LENGTH= 



CODE = 



Use two apostrophes to 
apostrophe 



represent each printable 






The symbol "3" will cause a carriage return return 
or line feed to occur for nonstatic screen termi- 
nals only . 

Defines the maximum size (in bytes) of the text 
buffer. If this operand is not coded, "message" 
must be coded and LENGTH equals the actual number of 
messages will occur if LENGTH is exceeded. The max- 
imum value is 2 54. 

If "message" is not coded* the text area will be 
initialized to EBCDIC blanks and the count byte 
will be equal to the length byte. 

If this operand is coded for a text buffer whose 
initial use will be for input, then the "message" 
parameter should not be coded and the defined buff- 
er will initially contain EBCDIC blanks. 

Defines the data type. Code E for EBCDIC, or A for 
ASCII. E is the default. 



x -n 



%-^Js 



Example 

MSG1 TEXT "A MESSAGE' 

MSG2 TEXT ' ABC " , LENGTH= 1 , CODE=A 

MSGt TEXT LENGTH=20 
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TEXT 



ASCII 
label TEXT 'message',LENGTH = length,CODE = or 

EBCDIC 



-► label 



length 



count 



m 



blank 



blank 



blank 



2 bytes 



count 



Length in bytes 



Figure 16. Text Statement 
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TITLE 



Listing Control 



The TITLE statement enables you to place a title at the top of 
each page of the assembly listings or at the top of individual 
pages. It is not supported by $EDXASM and Mill be treated as an 
EJECT instruction if encountered. 



Syntax 



blank 

Requ i red : 
Defaults: 



TITLE message 

message 
none 



Operands Descr i pt i on 

message An alphameric character string up to 100 characters 
in length. This must be enclosed in apostrophes. 



A~ 



vV 



A program may contain more than one TITLE state- 
ment. Each one causes following pages to begin with 
the new message. This heading is repeated on each 
new page following a TITLE statement until a new 
TITLE statement is encountered. 



o 
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TP HOST COMMUNICATIONS 



TP HOST COMMUNICATIONS (REFERENCE ONLY) 



Telecommunications 



TP OPENIN 
TP CLOSE 
TP SET 
TP RELEASE 



TP OPENOUT 
TP SUBMIT 
TP TIMEDATE 



TP NRITE 
TP READ 
TP FETCH 



The Host Communications Facilities are described in 
Communications and Terminal Applications Guide . 



the 



^f"*y 
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USER 
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Program Control 



USER creates linkage to a user exit routine. This provides the 
user a means of programming (in Series/1 assembler language) a 
function which is not supported by the Event Driven Executive 
instruction set. The user exit routine must set the registers 
correctly to return control to the system at the end of the rou- 
tine. Details of the conventions that must be followed are 
descr i bed below . 



Syntax 



label 



USER name*PARM s (parml * . . . * parmn ) > 
P=(namel* . . . , namen ) 



Requ i red : name 
Defaults: none 
Indexable: none 






Operands Description 

name The entry point name of the user-exit routine. 

PARM S A list of parameters that are to be passed to the 
user rout i ne . 



P = 



A list of names to be attached to the PARM operands. 



Upon entry to the user routine* register 1 points to the user's 
first parameter. If no parameters were passed to the user exit 
routine* register 1 will point to the address of the next 
statement following the USER instruction. Register 2 contains 
the address of the current tasks TCB. The user routine must 
preserve the contents of register 2 for eventual return to the 
supervisor. Your routine must also provide in register 1 the 
address of the next Event Driven language instruction to be 
executed when returning to the supervisor. If parameters are 
passed to the user routine* register 1 must be incremented 
within the user exit routine by double the number of parameters 
used before returning to the supervisor. If it is desired to 
return to an instruction other than the instruction following 
the USER statement* register 1 may be set to the address of the 



^Kt^Jr 
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USER 



desired instruction. In all cases, the assembly language rou- 
tine must exit by a branch to the label RETURN. Use of the USER 
routine requires that SLINK be used to include the RETURN 
object module, $$RETURN. The Autocall feature of $LINK may be 
used. See the Utilities, Operator Commands, Program 
Preparation, Messages and Codes for additional information. 
Figure 17 shows the control flow to a user exit routine. 






No parameters 



R1 



USER namel 
+ DC A (namel) 
► EDX-instruction 



namel EQU 



Series/1 assembler instructions 



B RETURN 
RETURN interface routine 



R1- 



With parameters 








• 

• 
USER name1,PARM = (a,b) 
+ DC A (namel) 
+ DC A (a) 
+ DC A (b) 

EDX-instruction 

• 

• 




r^ 


namel EQU* 

• 
• 

Series/1 assembler instructions 

• 

• 
ABI 4,R1 
B RETURN 

RETURN interface routine 










+ indicates statements generated by $S1 ASM. 





o 



Figure 17. Calling A User Exit Routine and Returning 



It will often be necessary for you to pass parameters to your 
routine. Parameters may be passed in the form of constants, 
which will be stored in the calling list, or as symbolic names 
(addresses) of the parameters. In the latter case, the address 
of the parameter is contained in the calling list. If the 
parameter is a constant, it may be addressed through register 1 
which points to the first parameter on entry to the user rou- 
tine. The instruction 
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USER 



MVN 



(R1,0),R3 






Mill load the parameter into Register 3 . 

The second parameter may be likewise loaded by 



MVW 



CR1,2),R3 



llowing instruction illustrates the method for acquiring a 
ter (in this case* the second) whose address is passed in thi 



The fo 
parame 
calling sequence 



MVW 



(R1,2)*,R3 



The user exit routine is free to use all of the registers as 
long as registers 1 and 2 are set properly for return to the 
supervisor, The last instruction of the user routine must 
branch to RETURN which is an entry point in the interface mod- 
ule $$RETURN. This module must be link-edited with the user 
exit routine using the $LINK utility. 

It may be useful in special cases to intermix Event Driven 
Language instructions and assembler instructions. This can be 
done by using the following coding convention: 



MOVE 
ADD 



A,B 
A, 10 



STANDARD INSTRUCTION EXAMPLE 
ANOTHER INSTRUCTION 



A.,-„-jT 



USER 



* + 2 



USER EXIT TO ASSEMBLER CODE 



ASSEMBLER CODE 



OK 



BAL 



RETURN, Rl SET REG 1 AND RETURN 



MOVE 
SUB 



B,A 
B,10 



NOW BACK INTO THE EVENT DRIVEN 
EXECUTIVE INSTRUCTION SET 



In this example, the USER *+2 and BAL RETURN, Rl provide the 
linkage to assembler code and back to the supervisor, respec- 
tively. See "Example 10: User Exit Routine" on page 400 for an 
example of a user exit routine. The above coding technique can 
only be used with the Series/1 assembler or the host assembler. 
SEDXASM does not allow mixing Series/1 code with the Event 
Driven Language instructions. 

If $EDXASM is used to assemble the source program, an EXTRN 
must be used to refer to the user exit routine. Then, $ L I N K 
must be used to link the module with the user exit routine mod- 
ule produced by the Series/1 or host assembler. 
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WAIT 



WAIT 



Task Control 



WAIT is used to wait for the occurrence of an event such as the 
completion of an I/O operation or a process interrupt. An 
event has an associated name specified by you. The initial sta- 
tus of any event defined by you is "event occurred" unless you 
explicitly reset the event with the RESET instruction before 
issuing the WAIT or reset the event in the WAIT instruction. 

Syntax 



label WAIT event , RESET, Pl= 

Required: event 

Defaults: event not reset before wait 

Indexable: event 



o 



Qpergnds 
event 



RESET 



PescriPtion 

The symbolic name of the event being waited upon. 

For process interrupt, use PIx, where x is a user 
process interrupt number in the range 1-99, 

For time intervals set by STIMER, use TIMER as the 
event name. Do not code RESET with TIMER. 




Reset (clear) the event before waiting. Using 
RESET will force the wait to occur even if the event 
has occurred and been posted complete. 

This parameter must not be specified when the WAIT 
is to be performed for the event specified in the 
EVENT operand of either a PROGRAM or a TASK state- 
ment . 
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WAIT 



Pl = 



(f \ 



Parameter naming operand. See "Use of The Parameter 
Naming Operands (Px=)" on page 8 for further 
descr i pt i ons . 



WAIT normally assumes the event is in the same partition as the 
currently executing program. However* it is possible to wait 
on an event in another partition using the cross-partition 
capability of WAIT. See the System Guide section on 
Cross-Partition Services. 

When compiling programs with $S1ASM or the host assembler* ECBs 
are generated automatically by the POST instruction when 
needed. When using $EDXASM> ECBs must be explicity coded 
unless one of the system event names listed above is used. 



'\\ ^ 
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WHERES 



WHERES 



Task Control 

WHERES is used to locate another program executing elsewhere in 
the system . 

Syntax 



label 



WHERES progname, address, KEY=,P1=,P2=,P3= 



Required: progname, address 
Defaults: none 
Indexab le : none 



Operands Descr i pt i on 

progname The label of a 8 byte area containing the 1-8 
character program name of the program to be located 
If less than 8 characters, the program name must be 
left- just i f i ed and padded with blanks. 

address The label of a word in which the loadpoint address 
of the located program will be returned if the pro- 
gram is found. This address is the first byte of 
the program and is also the beginning of the program 
header . 



If the program 
th i s locat i on . 



is not located, a -1 is stored at 



KEY = 



The label of a word in which the address key of the 
partition containing the located program will be 
returned if the program is found. The address key 
is one less than the partition number. 



Px = 



Parameter naming operands. See "Use of The 

Parameter Naming Operands ( P x = ) " on page 8 for 

further descriptions. P3 is the name of the KEY 
operand . 



Each partition, beginning with partition number 1, is searched 
to determine if the named program is loaded there. Partitions 
are searched in ascending order. The return code placed in the 
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WHERES 



task code word indicates the result of the search. If more than 
one copy exists* only the first one found is reported. 

The WHERES function accomplishes communication among independ- 
ently loaded programs. The address key value can be used as 
input to the cross-partition options of WAIT* POST* READ* 
WRITE, ATTACH, ENQ, DEQ, BSCREAD, BSCWRITE, and MOVE. The 
address can be used in conjunction with an application-defined 
convention to gain addressability to data or code routines 
within another program. One such technique is to obtain the 
contents of the $STORAGE word from the located program's header 
and use that to address data which the program has previously 
placed in its dynamic area. WHERES can also be used to deter- 
mine if a particular program is already loaded* this can avoid 
the need to load another copy. Refer to the topic of 
"Cross-Partition Services" in the System Guide for additional 
information on the use of WHERES. 



o 



Return Qoolqs 



Code 



-l 
o 



Descr i pt i on 



Program found 
Program not found 



\^__j/ 



Example* 



WHERES PROG, ADDR, KEY=KEY 



ADDR 


DATA 


F'0 T 


KEY 


DATA 


F'O' 


PROG 


DATA 


C'PROGNAME 1 



After successful execution, ADDR contains the address of 
program named PROGNAME and KEY contains the address key. 



the 



o 

Rimini iJ^ 
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WRITE 



WRITE 



Disk/Tape I/O 



Note : The Multiple Terminal Manager WRITE function is located 
in "WRITE" on page 381 

WRITE is used to transfer one or more records from a storage 
buffer into a data set. For disk or diskette data sets you can 
write data either sequentially or randomly by relative record. 
The records are 256 bytes in length. 

For tape data sets you can write data sequentially only. Tape 
records can be any even numbered length from 18 to 32766 bytes. 



I Syntax 



label 



WRITE DSx>loc>count»relrecno|blksizei 
END=,ERRQR=,WAIT=, P2=,P3=,P4= 



Required: DSx»loc 

Defaults? count=l» relrecno=0 or blksize=256, WAIT=YES 

Indexable: loc, count, relrecno or blksize 



| Operands Descr i pt i on 

DSx x specifies the relative data set number in a list 
of data sets defined by the user in the DS parameter 
of the PROGRAM statement. It must be in the range 
of 1 to n» where n is the number of data sets defined 
in the list. A DSCB name defined by a DSCB state- 
ment can be substituted for DSx. 



loc 



The symbolic name of the area from which data is to 
be transferred . 



count 



^bijyjr 



Specifies the number of contiguous records to be 
written. The maximum value for this field is 255. 
If you code for this field, no I/O operation will 
be performed. A count of the actual number of 
records transferred will be returned in the second 
word of the task control block. If an end of data 
set condition occurs (fewer records remaining in 
the data set than specified by the count field) the 
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system will first write as many records as there is 
space remaining in a disk data set and then an 
end-of-data-set return code will be set. 

relrecno The number of the record; relative to the origin of 
the data set* which is to be written. Numbering 
begins with 1. This parameter may be either a con- 
stant or the label of the value to be used. A spec- 
ification of for relrecno indicates a sequential 
WRITE. 

Sequential READs and WRITEs start with relative 
record one or the record number specified by a POINT 
instruction. The supervisor keeps track of sequen- 
tial READs and WRITEs and increments an internal 
next record pointer for each record read or written 
in sequential mode (relrecno "parameter is 0). 
Direct READs and WRITEs (relrecno parameter is not 
0) may be intermixed with sequential operations* 
but these do not alter the next sequential record 
pointer used by sequential operations. 

This disk WRITE operand cannot be used in the same 
instruction with the tape WRITE blksize operand. 

blksize This optional parameter specifies the size, in 
bytes* of the record to be written to a tape data 
set. The range is 18 to 32766 and the value must be 
an even number. The value can either be expressed as 
a constant or as the label of the value to be used. 
If this operand is not coded, or if is coded, the 
default value of 256 bytes is substituted. 

This tape WRITE operand cannot be used in the same 
instruction with the disk WRITE relrecno operand. 



END = 



For disk or diskette, use this optional operand to 
specify the first instruction of the routine to be 
invoked if an end-of-data-set condition is detected 
(Return Code=10). If this operand is not speci- 
fied, an EOD will be treated as an error. This 
operand must not be used if WAIT = N0 is coded. 



For tape, if an end-of-tape (EOT) condition is 
detected, the EOT path will be taken with return 
code 24, even though the block was successfully 
written. See the CONTROL statement for setting the 
proper end-of-data (EOD) indicators for an output 
tape. Multiple blocks (if specified by the count 
field) might not have been successfully written. 
The second word of the TCB contains the actual num- 
ber of blocks written. This parameter is not valid 
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when WAIT=NO is coded. 



ERROR= Use this operand to specify the first instruction 
of the routine to be invoked if an error condition 
occurs during the execution of this operation. If 
this operand is not specified* control will be 
returned to the next instruction after the NRITE 
and you must test for any errors. This operand must 
not be used if WAIT = NO is coded. 



For tape* if END is not coded* an EOT will be 
treated as an error with an EOT return code. The 
ERROR path is taken for all return codes other than 
EOT or a -1. An attempt to write to a tape which has 
an unexpired date is also an error. 



WAIT = 



If this operand is allowed to default* or if it is 
coded as WAIT=YES» the current task will be sus- 
pended until the operation is complete. 

If the operand is coded as WAIT=NO» control will be 
returned after the operation is initiated and a 
subsequent WAIT DSx must be issued in order to 
determine when the operation is complete. 

END and ERROR cannot be coded if WAIT=NO is coded. 
You must subsequently test the return code in the 
Event Control Block (ECB) named DSx or in the task 
code word (referred to by taskname). Two codes are 
of special significance. A -1 indicates a success- 
ful end of operation. A +10 indicates an 
End-of -Data-Set and may be of logical significance 
to the program rather than being an error. For 
programming purposes* any other return codes should 
be treated as errors. 



Note : The return codes for disk/diskette and tape 
are listed later in this section. 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



WRITE normally assumes the buffer (loc operand) is in the same 
partition as the currently executing program. However* it is 
possible to use a buffer in another partition using the cross- 
partition capability of WRITE. See the System Gu i de section on 
Cross-Partition Services. 
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| Disk/Tape Return Codes 



"> 



| Disk/tape I/O return codes are returned in two places: 

• The first word of the DSCB (either DSn or DSCB name) named 
DSn* where n is the number of the data set being refer- 
enced. 



The task code word (referred to by taskname). 



The possible return codes and their meaning for disk and tape 
are shown in tables later in this section. 

Following an error condition on tape* the read /write head posi- 
tion is immediately following the error record. The error retry 
has been attempted, but was unsuccessful. The count field* in 
the WRITE instruction* may or may not have been decremented to 
zero under this condition. 

If detailed information concerning an error is desired* it may 
be obtained by printing all or part of the contents of the disk 
data blocks (DDBs) or tape data blocks (TDBs), located in the 
supervisor area of partition 1. This can be accomplished in 
either of two ways: (a) by using the $LOG utility (see System 
Gu i de for details of use), or (b) by using the following infor- 
mation. The starting address of the DDBs/TDBs may be obtained 
from the link-edit map of the supervisor. DDBs/TDBs can also be 
located by the field SDISKDDB in the communications vector 
table (CVT). Use the PROGEQU equate table to reference 
$DISKDDB, DDBEQU equate table for DDB, and the TDBEQU equate 
table for the TDB fields. The contents of the DDBs and the TDBs 
are described in the IBM Series/1 Event Driven Executive 
Internal Pes i an , LY34-0168, under the headings of 'Disk Data 
Block 1 , and T DDB Equates 1 . Of particular value are the Cycle 
Steal Status Words and the Interrupt Status Word save areas* 
along with the contents of the word which contains the address 
of the next DDB/TDB in storage. 



w 
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Disk/diskette Return Codes 



READ/WRITE return codes are returned in two places: 

• The Event Control Block (ECB) named DSn, where n is the 
number of the data set being referenced. 

• The task code word referred to by taskname. 



The possible return codes 
Figure 12 on page 249. 



and their meaning are shown in 



If further information concerning an error is required* it may 
be obtained by printing all or part of the contents of the Disk 
Data Blocks (DDBs) located in the Supervisor. The starting 
address of the DDBs may be obtained from the linkage editor map 
of the supervisor. The contents of the DDBs are described in 
the Internal Pes i an . Of particular value are the Cycle Steal 
Status Words and the Interrupt Status Word save areas, along 
with the contents of the word which contains the address of the 
next DDB in storage. 



J 



Code Description 



-1 


Success 


1 


I/O err 




(This c 




at an o 


2 


I/O err 


3 


I/O err 


4 


Error o 




status . 


5 


Unrecov 


6 


Error o 


7 


A f no r 




for an 




'no rec 




ass i gne 


9 


De v i ce 


10 


Record 




end-of- 


11 


De v i ce 



ful completion. 

or and no device status present 

ode may be caused by the I/O area starting 

dd byte address ) . 

or trying to read device status. 

or retry count exhausted. 

n issuing I/O instruction to read device 

erable I/O error. 

n issuing I/O instruction for normal I/O. 

ecord found 1 condition occurred* a seek 

alternate sector was performed, and another 

ord found T occurred i.e., no alternate is 

d. 

was 'offline' when I/O was requested. 

number out of range of data set — may be an 

file (data set) condition. 

marked 'unusable' when I/O was requested. 



Figure 18. READ/WRITE return codes 
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Code Descr i pt i on 



-1 Successful completion 

1 Exception but no status 

2 Error reading STATUS 

4 Error issuing STATUS READ 

5 Unrecoverable I/O error 

6 Error issuing I/O command 
10 Tape mark (EOD) 

20 Device in use or offline 

21 Wrong length record 

22 Not ready 

23 File protect 

24 EOT 

25 Load po i nt 

26 Uncorrected I/O error 

27 Attempt WRITE to unexpired data set 

28 Inval i d blks i ze 

29 Data set not open 

30 Incorrect device type 

31 Incorrect request type on close request 

32 Block count error during close 

33 E0V1 label encountered during close 
76 DSN not found 



■\^_jS 
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TASK1 PROGRAM 
START1 WRITE 



START 1,DS=(( OUTDATA, 1025)) 
DS1,BUFF1,1,1000,ERROR=ERR 



This example writes a single 1000 byte record from 
location BUFFI, to a tape data set named OUTDATA, on 
a standard labeled (SL) tape that has volume serial 
number 1025. 



TASK2 PROGRAM START2 , DS= (( OUTDATA , 1 025 ) ) 
START2 WRITE DS1 , BUFF2 , 2 , 502 , ERR0R=ERR 



This example writes two records to the tape data 
set. Each record is 502 bytes in length. Record 
one is located at BUFF2, record two is located at 
BUFF2 + 502 bytes. 
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WXTRN/EXTRN 



Program Module Sectioning 



Both of these statements identify symbols which are not defined 
within the program module containing the EXTRN/WXTRN state- 
ment. References to these symbols will be resolved when the 
program module is link edited with a program module containing 
an ENTRY definition for the subject symbol. If no such symbol 
is found during link-edit, the symbol is said to be unresolved 
and it is assigned the same address as the beginning of the pro- 
gram . 

WXTRN symbols are resolved only by symbols that are contained 
in modules that are included by the INCLUDE statement in the 
link-edit process or by symbols found in modules that have been 
brought in by the AUTOCALL function. However, WXTRN itself 
does not trigger AUTOCALL processing. 

Only symbols defined by EXTRN statements will be used as search 
arguments during the AUTOCALL processing function of SLINK. 
Any additional external symbols found in the module found by 
AUTOCALL will be used to resolve both EXTRN and WXTRN symbols. 
See the description of $LINK in Utilities, Operator Commands* 
Program Preparation, Messages and Codes for further 
i nf ormat ion. 

Syntax 



blank 
blank 



Requ i red : 
Defaults : 
Indexab le 



WXTRN One or more relocatable symbols 
EXTRN that are external to this 

program, separated by commas 

One symbol 

none 

none 



Operands 



Descr i pt i on 



o 



One or more external symbols which will be resolved 
by link editing to a program module which contains 
the same symbol defined by an ENTRY statement. 
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XYPLOT 






Graph i cs 



ts 
ed 



XYPLOT is used to draw a curve on the display connecting poin 
specified by arrays of x and y values. Data values are seal 
to screen addresses according to the plot control block, and 
points outside the plot area are placed on the nearest bounda- 
ry. 

Syntax 



label 

Requ i red : 
Defaults : 
Indexable : 



XYPLOT x,y,pcb,n,Pl=,P2=,P3=,P4= 

x , y ,pcb,n 

none 

none 



Operands "qscHptlon 

x Address of array of x data values. 

y Address of array of y data values. 

peb Label of 8-word Plot Control Block (see "PLOTGIN" 
on page 210 for a description of a Plot Control 
Block). 






Px 



Address of location which contains number of points 
to be drawn . 

Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=)" on page 8 for 
further descriptions. 



Example : See "Example 12: Graphics Instructions Programming 
Example" on page 408 for an example of coding XYPLOT. 
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YTPLOT 



YTPLOT 



Graph i cs 

YTPLOT is used to draw a curve on the display connecting points 
equally spaced horizontally and having heights specified by an 
array of y values. Data values are scaled to screen addresses 
according to the plot control block, and points outside the 
range are placed on the boundary of the plot area. 

Syntax 



label 



YTPLOT y,xl,pcb,n,inc,Pl=,P2=,P3=,P4=,P5= 



Required: y,xl,pcb,n,inc 
Defaults: none 
Indexable: none 






Qperands pescnptign 

y Address of array of y data values. 

xl Address of x data value associated with first 

point. 



pcb 



Label of 8-word Plot Control Block (see "PLOTGIN" 
on page 210 for a description of a Plot Control 
Block ) . 



Address of location which contains number of points 
to be drawn . 



i nc 



Explicit value of increment of x data value between 
points. Inc must not be zero and must be an explicit 
value . 



Px = 



Parameter naming operands. See "Use of The 
Parameter Naming Operands (Px=) w on page 8 for 
further descriptions. 
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CHAPTER 4. INDEXED ACCESS METHOD 



This chapter describes the requests that make the Indexed 
Access Method available to the user: PROCESS, LOAD, GET, 
GETSEQ, PUT, PUTUP, PUTDE, RELEASE, DELETE, ENDSEQ, EXTRACT, 
and DISCONN. Included for each request is a description of the 
purpose of the request, the detailed coding syntax, a 
description of each parameter, and all of the return codes 
associated with use of these requests. The Indexed Access 
Method Licensed Program must be installed to use any of these 
serv i ces . 

The information in this chapter is intended for use as a refer- 
ence when coding. For a complete description of the Indexed 
Access Method refer to System Guide . 

All Indexed Access Method services are requested by use of the 
CALL instruction. Call parameters can have the following 
forms : 

NAME: passes the value of the variable with the label 'NAME* 

(NAME): passes the address of the variable 'NAME* or the value 
of a symbol defined using an EQU statement 

For additional information refer to "CALL" on page 68. 

The general form of all Indexed Access Method calls is as fol- 
lows: 

CALL IAM,(func),iacb,(parm3),(parm4),(parm5) 

The request type is determined by the operand func. Depending 
on the type of function the remaining parameters may or may not 
be required. The symbols used for func and parm5 are provided 
by EQU statements in the IAMEQU copycode module and are coded 
as shown in the syntax descriptions. These symbols are treated 
as addresses; therefore the MOVEA instruction should be used if 
it is necessary to move them into a parameter list. Since these 
symbols are equated to constants, they may also be manipulated 
using other instructions by prefixing them with a plus (+) 
sign. Use the COPY statement to include IAMEQU in your pro- 
gram . 

Programs which call the Indexed Access Method must be processed 
by SLINK to include the subroutine module IAM. IAMEQU has an 
EXTRN statement for IAM. Refer to the chapter on "SLINK" in 
Utilities, Operator Commands, Program Preparation, Messages 
and Codes for information on how to perform the link edit proc- 
ess . 
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All Indexed Access Method requests pass a return code reflect-* 
ing a condition that prevailed when the request completed. 
This code is passed in the Task Code Word (referred to by task 
name) of the TCB associated with the requesting task. These 
return codes fall into three categories: 

-1 = Successful completion 

Positive = Error 

Negative = Warning (other than -1) 

The return codes associated with each request are included with 
the description of the request. Parameters parm3> parm4, and 
parmS are set to zero by the Indexed Access Method before 
returning. These parameters must be reinitialized before exe- 
cuting the CALL instruction again. 

"Example 14: Use of Indexed Access Method" on page 414 i a 
complete program which illustrates many of the Indexed Acce 
Method services. This example should help you understand t 
use of these services. 



; 
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DELETE 



DELETE 



Indexed Access Method 



The DELETE request deletes a specific record from the data set. 
The record to be deleted is identified by its key. The deletion 
makes space available for a future insert. The data set must be 
opened in the PROCESS mode. 

Syntax 



label 



CALL 



IAM, (DELETE), iacb, (key) 



Requi red : all 
Defaults: none 
Indexable: none 






Operands Descr i pt i on 

iacb The label of a word containing 
returned by PROCESS. 



the IACB address 



(key) 



The label of your key area containing the key 
identifying the record to be retrieved and preceded 
by the lengths of the key and area. This area has 
the standard TEXT format and may be declared using 
the TEXT statement. This format is as follows: 



Offset Field 

key -2 LENGTH (1 byte) 

key -1 KLEN (1 byte) 

key Key area ("LENGTH" 



bytes ) 



length The length of the key area. It must be 
equal to or greater than the full key 
length for the file in use. 



o 



klen 



The actual length of the key in the key 
area to be used as the search argument 
for the operation. It must be less than 
or equal to the full length of the keys in 
the file in use. If klen is 0, the full 
key length is assumed. If klen is 
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DELETE 



key area 



between and the full key length, a 
generic key search is performed. 

A generic key search is performed when 
klen is less than the full key size. The 
first n bytes (as specified by klen) of 
the key area are matched against the 
first n bytes of the keys in the file. The 
first matching key determines the record 
to be accessed. The full key of the 
record is returned in the key area. 

The area containing the key to be used as 
a generic search argument. After a suc- 
cessful generic key search, this area 
contains the full key of the record 
accessed . 






Return Codes 



Code 



Cond i t i on 



-1 Successful 

-85 Record not found 

7 Link module in use 

8 Unable to load $IAM 
10 Invalid request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 

80 Write error - FCB 

100 Read error 

101 Write error 



h^V 
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DELETE 



Example 



CALL I AM, (DELETE), FILE1, (KEY) 



FILE1 DATA F»O f IACB address from PROCESS 
KEY TEXT 'KEY0001 1 ,LENGTH=7 
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DISCONN 



t 






Indexed Access Method 



The DISCONN request disconnects an IACB from an indexed data 
set and releases the storage used for the IACB. It releases any 
locks held by that IACB and writes out any modified blocks from 
the data set that is being held in the system buffer. Other 
users connected to this data set are not affected. 

Syntax 



label 



CALL 



Requ i red : all 
Defaults! none 
Indexable: none 



IAM, (DISCONN) , iacb 






Operands Description 

iacb The label of a word containing 
returned by PROCESS or LOAD. 



the IACB address 
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Return Codes 




-1 Successful 

7 Link module in use 

8 Unable to load $IAM 

12 Data set shut doun 

13 Module not included in load module 
22 Invalid IACB address 

100 Read error 

101 Nr i te error 

110 Write error, data set closed 
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ENDSEQ 



Indexed Access Method 



The ENDSEQ request ends sequential processing, during which a 
block is locked and fixed in the system buffer. Sequential 
processing is normally terminated by an end-of-data condition. 
The ENDSEQ request is useful for freeing the locked block when 
the sequence need not be completed. ENDSEQ is valid only dur- 
ing sequential processing. 



Syntax 



label 



CALL 



IAM, (ENDSEQ), iacb 



Requ i red : all 
Defaults: none 
Indexable: none 



y 



Operands Descr i Pt i on 

iacb The label of a word containing 
returned by PROCESS 



the IACB address 



\^ 
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Return Codes 



Code 



Cond ition 



-1 Successful 

7 Link module in use 

8 Unable to load $IAM 
10 Invalid request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 
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EXTRACT 



> 



(f 



Indexed Access Method 



The EXTRACT request returns information from a File Control 
Block to the user's area. The FCB contains such things as the 
blocksize, key length, and data set and volume names of the 
indexed file. The FCBEQU copycode module contains a set of 
equates to map the File Control Block. 



Syntax 



label 



Requ i red : 
Defaults : 
Indexab le : 



CALL I AM, (EXTRACT), i acb , ( buf f ) , ( s i ze ) 



all 

s i ze = f ul 1 

none 



FCB 



Operands 
i acb 

(buff) 



(s i ze ) 



Descr \ pt i on 

The label of a word containing 
returned by PROCESS or LOAD. 



the IACB address 



The label of the user area into which the File 
Control Block (FCB) is returned. The area must be 
large enough to contain the requested portion of 
the FCB. Use the COPY statement to include FCBEQU 
in your program so that the FCB fields can be refer- 
enced by symbolic names. 

The number of bytes of the area into which the FCB 
is to be copied. A full FCB requires 256 bytes. The 
symbol FCBSIZE in the FCBEQU equate table repres- 
ents the actual size of the data in the FCB and can 
be used as this parameter. 



s x x 
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o 



Return Codes 



Code 

-1 

7 

8 
12 
13 
22 



Cond i t i on 

Successful 

L i nk module i n use 

Unable to load $IAM 

Data set shutdown 

Module not included in load module 

Invalid IACB address 



^•**'v k 
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GET 



4^\ 



Indexed Access Method 



The GET request retrieves a single record from the indexed data 
set and places the record in a user area. The data set must be 
opened in the PROCESS mode. 

The requested record is located by key. The search may be modi- 
fied by a key relation (krel) or a key length (klen). The first 
record in the data set that satisfies the key condition is the 
one that is retrieved. 

Retrieve for update can be specified if the requested record is 
intended for possible modification or deletion. The record is 
locked and remains unavailable to any other requests until the 
update is completed by a PUTUP, PUTDE or by a RELEASE. The 
record is also released if an error occurs or processing is 
ended with a DISCONN. 

During an update* you should not change the key field in the 
record or the field addressed by the key parameter. The 
Indexed Access Method checks for and prohibits key modifica- 
tion. 

Syntax 



\=y 



label 



Required? 
Defaults : 
Indexable * 



CALL IAM, (GET), iacb, (buff), (key), 
(mode/krel ) 

all 

mode/krel=EQ 

none 



Operands Descr i pt i on 

iacb The label of a word containing the IACB address 
returned by PROCESS. 

(buff) The label of the user area into which the requested 
record i s placed . 



o 
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(key) 



GET 



The label of your key area containing the key 
identifying the record to be retrieved and preceded 
by the lengths of the key and area. This area has 
the standard TEXT format and may be declared using 
the TEXT statement. This format is as follows: 



Offset Field 

key -2 LENGTH (1 byte) 

key -1 KLEN (1 byte) 

key Key area ("LENGTH" 



bytes ) 



length The length of the key area. It must be 
equal to or greater than the full key 
length for the file in use. 



klen 



key area 



The actual length of the key in the key 
area to be used as the search argument 
for the operation. It must be less than 
or equal to the full length of the keys in 
the file in use. If klen is 0, the full 
key length is assumed. If klen is 
between and the full key length* a 
generic key search is performed. 

A generic key search is performed when 
klen is less than the full key size. The 
first n bytes (as specified by klen) of 
the key area are matched against the 
first n bytes of the keys in the file. 
The first matching key determines the 
record to be accessed. The full key of 
the record is returned in the key area. 

The area containing the key to be used as 
a generic search argument. After a suc- 
cessful generic key search, this area 
contains the full key of the record 
accessed . 



(mode/krel) Retrieval type and key relational operator to 
used. The following are defined: 



be 



EQ 



Retrieve only key equal 



GT Retrieve only key greater than 

GE Retrieve only key greater than or equal 

UPEQ Retrieve for update key equal 

UPGT Retrieve for update key greater than 

UPGE Retrieve for update key greater than or equal 
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Return Codes 



Code 



Cond i t i on 



-1 Successful 

-58 Record not found 

-80 End of data 

7 Link module in use 

8 Unable to load $IAM 
10 Invalid request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 

100 Read error 

101 Write error 



J 
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GETSEQ 



Indexed Access Method 



The GETSEQ request retrieves a single record from the indexed 
data set and places the record in a user area (buff). The data 
set must be opened in the PROCESS mode. 

The first GETSEQ of a sequence is performed like a GET; the 
first record in the data set that satisfies the key conditions 
is the one that is retrieved. If key is zero* the first record 
in the data set is retrieved. Subsequent requests in the 
sequence locate the next sequential record in the data set and 
the key parameter is ignored if specified. The sequence is 
terminated by an end-of-data condition* by an ENDSEQ, by a 
DISCONN, or by an error. During the sequence, direct-access 
requests are invalid. Retrieval for update can be specified if 
the requested record is intended for possible modification or 
deletion* If update is used the record is locked and remains 
unavailable to any other requests until the update is completed 
by a PUTUP, PUTDE or RELEASE. The record is also released by 
ending the sequence with an ENDSEQ or by ending processing with 
a DISCONN or by an occur. 

During an update* the user must not change the key field in the 
record or the field addressed by the key parameter. The 
Indexed Access Method checks for and prohibits key modifica- 
tion. 

Syntax 



label 



Requi red : 
Defaults : 
Indexable : 



CALL I AM, (GETSEQ), iacb, (buff), (key), 
(mode/krel ) 

all 

mode/krel=EQ 

none 



Operands Descr i pt ion 

iacb The label of a word containing 
returned by PROCESS. 



the IACB address 
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(buff) 



(key) 



The label of the user area into which the requested 
record is placed. 

The label of the user key area containing the key 
identifying the record to be retrieved and preceded 
by the lengths of the key and area. If the first 
record of the data set is to be retrieved, this 
field as specified should be 0. The key field, if 
specified, has the standard TEXT format and may be 
declared using the TEXT statement. This format is 
as follows i 






Offset Field 

key -2 LENGTH (1 byte) 

key -1 KLEN (1 byte) 

key Key area ("LENGTH" 



bytes ) 



length The length of the key area. It must be 
equal to or greater than the full key 
length for the file in use. 



klen 



key area 



The actual length of the key in the key 
area to be used as the search argument 
for the operation. It must be less than 
or equal to the full length of the keys in 
the file in use. If klen is 0, the full 
key length is assumed. If klen is 
between and the full key length, a 
generic key search is performed. 

A generic key search is performed when 
klen is less than the full key size. The 
first n bytes (as specified by klen) of 
the key area are matched against the 
first n bytes of the keys in the file. 
The first matching key determines the 
record to be accessed. The full key of 
the record is returned in the key area. 

The area containing the key to be used as 
a generic search argument. After a suc- 
cessful generic key search, this area 
contains the full key of the record 
accessed . 






(mode/krel) Retrieval type and key relational operator to 
used. The following are defined: 



be 
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EQ Retrieve only key equal 

GT Retrieve only key greater than 

GE Retrieve only key greater than or equal 

UPEQ Retrieve for update key equal 

UPGT Retrieve for update key greater than 

URGE Retrieve for update key greater than or equal 

After the first GETSEQ of a sequence only the retrieval type is 
meaningful. The keys are not checked for equal or greater than 
relat i onsh i p . 



Return Codes 






Code 



Condition 



-1 Successful 

-58 Record not found 

-80 End of data 

7 Link module in use 

8 Unable to load $IAM 
10 Invalid request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 

100 Read error 

101 Nr i te error 
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LOAD 






Indexed Access Method 



Note : Task control LOAD is located under "LOAD" on page 194. 

The LOAD request builds an indexed access control block (IACB) 
associated with the data set specified by dscb. The address 
returned in the iacb variable is the address used to connect 
requests under this LOAD to this data set. 

LOAD opens the data set for loading base records; the only 
acceptable processing requests in this mode are PUT, EXTRACT 
and DISCONN. Only one user of a data set can use the LOAD func- 
tion at one t i me . 

If an error exit is specified* the error exit routine is exe- 
cuted whenever any Indexed Access Method request under this 
LOAD terminates with a positive return code. 

Syntax 



label 



Requ i red t 
Defaults : 
Indexable : 



CALL I AM, (LOAD) , iacb, (dscb), (open tab) , 
( mode ) 

all 

mode=(SHARE) 

none 



\^jr 



Operands Descr i pt i on 

iacb The label of a 1-word variable into which the 
address of the indexed access control block (IACB) 
i s returned . 



(dscb) The name of a valid DSCB. This name is DSn , where n 
is a number from 1-9, corresponding to a data set 
defined by the PROGRAM statement. It can also be a 
name supplied by a DSCB statement. In the latter 
case you must have previously opened the DSCB with 
either the $DISKUT3 utility or with a DSOPEN state- 
ment . 



o 
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(opentab) The label of a 3 word open-table. The 
contains information used during this 
format of this table is as follows: 



LOAD 



open table 
LOAD. The 



Offset 

2 
4 



Field 
SYSRTCD 
ERREXIT 
( ) reserved 



Where : 

SYSRTCD A 1-word variable in which the system 
return code is placed if a system func- 
tion requested under this LOAD by the 
Indexed Access Method terminates with a 
positive return code. 

ERREXIT The user's error exit routine address. 
If this address is zero* the error exit 
will not be taken. Note that error exits 
handle only positive returns. 






(mode ) 



RESERVED Must be for LOAD requests. 

Specifies shared or exclusive use of the data set. 



SHARE Allows shared read/write access 
PROCESS requests . 



by 



EXCLUSV You are allowed access to the data set 
only if there are no outstanding PROCESS 
or LOAD requests. No other user can 
access the data set while exclusive use 
is granted to another. 
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Return Codes 



Code 



Cond ition 



-1 

-57 

7 

8 

12 

13 

23 

50 

51 

52 

54 

55 

56 



Successful 

Data set has been loaded 

L i nk module i n use 

Unable to load $IAM 

Data set shut down 

Module not included in load module 

Insufficient IACBs 

File opened exclusive 

Opened in load mode 

File in use, cannot open exclusive 

Inval i d blocks i ze 

Insufficient FCBs 

Read error - FCB 



Example 



sf~'~^ 



CALL 



I AM, CLOAD),IACB, (DS3), (OPEN), (EXCLUSV) 



IACB 


DATA 


F f ? 


OPEN 


DATA 


F'O' 




DATA 


A f ERROR 




DATA 


F f 0* 



return codes 
error ex i t 
not used 
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PROCESS 



Indexed Access Method 



The PROCESS request builds an indexed access control block 
(IACB) associated with the data set specified by DSCB. The 
address returned in the IACB variable is the address used to 
connect requests under this PROCESS to this data set. 

PROCESS opens the data set for retrievals, updates, 
insertions, and deletions. Multiple users can PROCESS the same 
data set. However, only one user at a time can use the LOAD 
function for a given data set. 

If ERREXIT is specified, the error exit routine is executed 
whenever any Indexed Access Method request under this PROCESS 
terminates with a positive return code. If EODEXIT is speci- 
fied, the end-of-data exit routine is executed whenever a 
GETSEQ associated with PROCESS attempts to access a record 
after the last record in the data set. 

Syntax 



label CALL 



Required: all 
Defaults : mode 
Indexable: none 



I AM, (PROCESS), iacb, (dscb), (open tab), 
(mode ) 



(SHARE) 



Operands Descr i ot i on 

iacb The label of a 1-word variable into which the 
address of the indexed access control block (IACB) 
i s returned . 

(dscb) The name of a valid DSCB. This name is DSn, where n 
is a number from 1-9, corresponding to a data set 
defined by the PROGRAM statement. It can also be a 
name supplied by a DSCB statement. In the latter 
case you must have previously opened the DSCB with 
either the $DISKUT3 utility or with a DSOPEN state- 
ment . 
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(opentab ) 



The label of a 3 word open table. The open table 
contains information used during this PROCESS. The 
format of this table is as follows: 



J 



Offset 

2 
4 



Field 
SYSRTCD 
ERREXIT 
EODEXIT 



Where : 

SYSRTCD A 1-word variable in which the system 
return code is placed if a system func- 
tion requested under this PROCESS by the 
Indexed Access Method terminates with a 
positive return code. 

ERREXIT Your error exit routine address. If this 
address is 0» the error exit will not be 
used. Note that error exits handle only 
positive return codes. 



EODEXIT Your end-of-data exit 
If this address is 0> 
exit will not be used. 



rout i ne address . 
the end-of-data 



V> 



(mode) Specifies shared or exclusive 
set . 



access to the data 



SHARE Allows shared read/write access by 
multiple PROCESS or LOAD requests. 

EXCLUSV The user is allowed access to the data 
set only if there are no outstanding 
PROCESS or LOAD requests. No other user 
can access the data set while exclusive 
use is granted to another. 
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Return Codes 



Code 



Cond i t i on 



-1 

-57 

7 

8 

12 

13 

23 

50 

51 

52 

54 

55 

56 



Successful 

Data set has been loaded 

L i nk module i n use 

Unable to load $IAM 

Data set shut down 

Module not included in load module 

Insufficient IACBs 

File opened exclusive 

Opened in load mode 

File in use* cannot open exclusive 

Inval i d blocks i ze 

Insufficient FCBs 

Read error - FCB 



Example 



CALL 



I AM, (PROCESS), I ACB, (DSD, ( OPENTAB ),( SHARE ) 



OPENTAB DATA 
DATA 
DATA 

IACB DATA 



F f 0' 

A(ERROR) 
A(END) 
F'O' 



return codes 

address of error exit 

address of EOD exit 
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PUT 






Indexed Access Method 



The PUT request processes the record that is in your buffer 
(buff) according to the way the data set was opened (LOAD or 
PROCESS). 

If the current open is for LOAD* the record must have a higher 
key than the highest key already in the data set and only base 
records are used (refer to the System Guide for information on 
LOAD mode). If the current open is for PROCESS* the record may 
have any key and is placed in either a base or a free record 
slot. 

Syntax 



label 



CALL 



IAM, (PUT), iacb,(buff ) 



Required: all 
Defaults : none 
Indexable: none 



^> 



Operands Descr i pt i on 

iacb The label of a word containing the IACB address 
returned by PROCESS or LOAD. 

(buff) The label of the user area containing the record to 
be added to the data set. 
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Return Codes 






Code 



Condition 



-1 Successful 

7 Link module in use 

8 Unable to load $IAM 
10 Invalid request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 

60 Out of sequence or duplicate key 
(LOAD only) 

61 End of file 

62 Duplicate key found (PROCESS only) 
70 No space for insert 

100 Read error 

101 Nr i te error 
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PUTDE 



Indexed Access Method 



PUTDE deletes a record from an indexed data set. The record 
must have been previously retrieved by a GET or GETSEQ in 
update mode. Deleting the record creates free space in the data 
set. The PUTDE releases the lock placed on the record by the 
GET or GETSEQ. 



Syntax 



label 



CALL 



IAM, (PUTDE) , iacb, (buff) 



Requ i red : all 
Defaults: none 
Indexable: none 






Operands Description 

iacb The label of a word containing the IACB address 
returned by PROCESS. 

(buff) The name of the area containing the record 
previously retrieved by GET or GETSEQ. 
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PUTDE 



Return Codes 



Code 



Cond i t i on 



-1 Successful 

7 Link module in use 

8 Unable to load $IAM 
10 Inva 1 i d request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 

85 Key was modified by user 

100 Read error 

101 Write error 
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PUTUP 



Indexed Access Method 



The record in your buffer (buff) replaces the record in the 
data set. The record must have been retrieved by a GET or 
GETSEQ in update mode. You must not change the key field in the 
record or the contents of the key variable in the GET request. 
The Indexed Access Method checks for and prohibits key modifi- 
cation. The PUTUP releases the lock placed on the record by the 
GET or GETSEQ. 



Syntax 



label 



CALL 



I AM, (PUTUP), iacb,(buf f ) 



Requ i red * all 
Defaults.* none 
Indexable' none 






Operands Descr i pt i on 

iacb The label of a word containing the IACB address 
returned by PROCESS. 

(buff) The label of the user area containing the record to 
replace the one previously retrieved. 
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Return Codes 



Code 



Condition 



-1 Successful 

7 Link module in use 

8 Unable to load $IAM 
10 Invalid request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 

85 Key was modified by user 

100 Read error 

101 Wr i te error 
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RELEASE 



Indexed Access Method 

The RELEASE request frees a record that has been locked by a GET 
or GETSEQ for update. A record lock is normally released by a 
PUTUP or PUTDE. The RELEASE request is useful for freeing the 
locked record when the update need not be completed. RELEASE 
is valid only when a record is locked for update. 

Syntax 



label 



CALL 



IAM, (RELEASE), iacb 



Requ i red : all 
Defaults: none 
Indexable: none 






Operands Descr i pt i on 

iacb The label of a word containing 
returned by PROCESS. 



the IACB address 



\y 
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RELEASE 



Return Codes 



Code 



Cond i t i on 



-1 Successful 

7 Link module in use 

8 Unable to load $IAM 
10 Invalid request 

12 Data set shut down 

13 Module not included in load module 
22 Invalid IACB address 



^»*j^ 
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CHAPTER 5. MULTIPLE TERMINAL MANAGER 






The services of the Multiple Terminal Manager are requested 
using the instruction "CALL" on page 68. This section describes 
each of the functions and the coding syntax of the CALL* the 
parameters and the return codes. 

The use» purpose* and messages for the Multiple Terminal Manag- 
er functions are described further in the Communications and 
Terminal Applications Guide . 

The general format of a Multiple Terminal Manager request is: 



CALL rout i ne » (parml ) » ( parm2 ) 



All parameters are enclosed in parentheses and are 
addresses of variables in the requesting program. 



the 
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ACTION 



JP 



Multiple Terminal Manager 



ACTION begins the prompt-response terminal I/O cycle. For IBM 
4978/4979/3101 displays the parameter list is ignored (if 
specified). The input buffer is written protected to the 
screen if a CALL SETPAN or CALL CHGPAN command was executed 
previously during this execution. The output buffer is scatter 
written into the unprotected fields on the screen. If no SETPAN 
or CHGPAN precedes the ACTION, only the output buffer is writ- 
ten. The terminal then waits for operator input and reenters 
the current program (with operator input in the input buffer) 
at the next sequential instruction after CALL ACTION. 

For asynchronous terminals* ACTION does the following: 

1. Writes the specified buffer contents to the terminal 
(performs the Multiple Terminal Manager WRITE function). 

2. Waits for the operator to respond 



3. Reenters the current program at the instruction follow- 
ing the CALL ACTION. 



/T" 



V^ 



Syntax 



label 



CALL ACTION, (buffer), (length), (crlf) 



Requ i red : none 
Defaults : none 
Indexable : none 



Operands Descr i pt i on 

(buffer) A buffer of EBCDIC text of any length. 

(length) The number of characters in the buffer. 

(crlf) A binary value of 1 specifies that the terminal is 
to be issued a CR and LF after the message is sent. 
Any other value results in no CRLF being sent. 



\J 
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Multiple Terminal Manager 



CALL BEEP causes the audible alarm (optional feature) to be 
sounded at the current terminal following the next output 
cycle. The IBM 4979 terminal has no audible alarm and ignores 
this request. The current display and cursor position for 4978, 
4979 and 3101 are not affected. When executed for an asynchro- 
nous terminal, this request causes the next output line to be 
followed by a bell character. 



Syntax 



label 



CALL BEEP 



Requ i red * none 
Def au Its : none 
Indexable: none 



Operands Descr i pt i on 
none none 
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CDATA 



Multiple Terminal Manager 



Although the terminal environment block can be accessed 
directly because its address is a user program parameter* you 
may find it more convenient with your program to use the CDATA 
function* to determine the attributes of the calling terminal. 
The CDATA subroutine returns data concerning the terminal 
which is currently executing the program. 



Syntax 



label 



CALL CDATA, (type), (u5erid),(userclass), 
(termname) » (buffsize) 



Requ i red : all 
Defaults J none 
Indexable: none 



t 



Operands Descr i pt i on 

(type) A word where: 

= Terminal is an IBM 4978, 4979, or 3101 
2 = Terminal is an ASR 33/35 or equivalent 

(userid) The 16-bit value returned by the SIGNON program 
when the current terminal signed on. If the current 
terminal does not use SIGNON, this value is set to 
zero . 

(userclass) The 16-bit value returned by the SIGNON program 
when the current terminal signed on. If the current 
terminal does not use SIGNON, this value is set to 
zero . 

(termname) The label of a field containing the 8-byte name 
(right padded with blanks, if necessary) of the 
current terminal. 
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CDATA 



(buffsize) The length of the terminal's input buffer. For 
asynchronous terminals this is 150 bytes. For IBM 
4978, 4979, or 3101 terminals, this is the number of 
unprotected blanks in the last screen panel which 
Mas set using SETPAN or CHGPAN. 



o 
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CHGPAN 



CH6PAN 






Multiple Terminal Manager 



After a CALL SETPAN, the protected characters of the screen 
panel specified have been placed in the input buffer. You can 
add data to the image prior to the next output cycle, and the 
data is displayed as protected data. If you do this, you must 
also CALL CHGPAN to inform the Multiple Terminal Manager that 
it needs to recompute the location of the first unprotected 
character position in the current panel and the count of unpro- 
tected characters. CHGPAN also sets the SETPAN indicator, 
allowing applications to dynamically develop protected screen 
panels . 



Syntax 



label 



CALL CHGPAN 



Required: none 
Defaults? none 
Indexable: none 






Operands Descr i pt i on 
none None 



\«^r 
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CYCLE 



CYCLE 



Multiple Terminal Manager 

When CALL CYCLE executes, the program may be swapped out as all 
other terminals are given an opportunity to process inputs. The 
program and the output buffer are preserved but the contents of 
the input buffer are lost (set to blanks). If a SETPAN or 
CHGPAN has been executed, the screen in the input buffer is 
displayed protected at this time to free up the input buffer. 

After all other terminals have processed their inputs, the 
program is swapped into the program area and control is 
returned to the instruction after the CALL CYCLE. 

Syntax 






label 



CALL CYCLE 



Requ i red : none 
Defaults! none 
Indexable: none 



o 



Operands Descr i pt i on 
none none 
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FAN 



FAN 






Multiple Terminal Manager 



The FAN function is a no-operation in the EDX environment. It 
is provided only for compatibility with other implementations. 



J Syntax 



label 



CALL FAN 



Requ i red : none 
Defaults: none 
Indexable: none 



Operands Descr i pt i on 
none none 



f x 

w 
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FILEIO 



FILEIO 



Multiple Terminal Manager 



Nhen executing programs under the Multiple Terminal Manager, 
all requests for disk/diskette I/O are by means of a call to the 
FILEIO routine. FILEIO provides the following functions: 

• Automatic open of the requested data set. 

• Direct access support where records are accessed by a 
relative record number (RRN). 

• Support for Indexed Access Method files, providing a 
high-level language interface to most Indexed Access Meth- 
od serv i ces . 

• Data integrity, using automatic close of terminal man- 
ager shutdown and automatic write back of data buffers. 

FILEIO automatically controls the opened/closed status of a 
data set. Thus data set names must not be coded on the PROGRAM 
statement of programs to be executed using the Multiple Termi- 
nal Manager. If the data set is not open when a request is 
made, the data set is opened. Because many terminals can 
require many data sets, some common and some unique, you may 
find that there is no storage available to open a requested 
data set. In order to avoid this situation, a limit is set for 
the number of open data sets. Multiple Terminal Manager is 
distributed with space allocated for 14 open data sets. Nhen 
this limit is reached, the least recently accessed data set is 
closed, and the space it required is reused. A data set is not 
available for automatic close if it has an update pending. The 
user can adjust the maximum number of open data sets by chang- 
ing the file table in the Multiple Terminal Manager source mod- 
ule CDMCOMMN. 

FILEIO provides the facility to access previously created 
files using the CALL interface described earlier. These files 
must have been previously defined and, if indexed, they must 
have been previously loaded. 

Syntax 



o 
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FILEIO 



label 



CALL FILEIO, (fca), (buffer), (code) 



Requ i red : all 
Defaults : none 
Indexable: none 



Operands Descr iption 

(fca) File Control Area (FCA) - The label of a table with 
the parameters describing the requested oper- 
ations. Some fields are defined differently depend- 
ing on the request type specified. The format of 
the FCA is shown below: 



Request Type 



4 Data Set Name 



12 Key Relation 



12 Number of 
Records 



A 4-byte EBCDIC request 
Valid request types are 
shown below 

An 8-byte EBCDIC data set 
name, left justified and 
padded with blanks 

A 2-byte EBCDIC key rela- 
ion Operator, GT, GE, EQ 
(indexed files only) 

A word value for the number 
of 256 byte records 
to be read or written 
(direct file requests only) 



14 Key Length 



A word specifying the 
lengthof the key to be used 
for retrieval. If the 
length specified is less 
than the actual key length, 
the first n bytes of the key 
are used (indexed files only) 



\^J 
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16 Key Locat i on 



or 
16 EOD Record 
Number 



18 Reserved 



20 



22 



28 



Relat i ve Record 
Number (RRN) 



Volume Name 



Search Key 



FILEIO 



The address of the key to be 
used (indexed requests only). 
For a COBOL program* this 
should be zero . 

The system-maintained logical 
EOD record number passed back 
to the application after each 
direct f i le READ or WRITE 
(direct file requests only). 

Must be zero 

A word value for the 
RRN. The first record is 
record number 1 (direct 
file requests only) 

A 6-byte EBCDIC volume 
name left justified and 
padded with blanks 

Used only by COBOLpro- 
grams to specify the key 
for indexed requests 



(buffer) The name of the user program I/O buffer. This 
buffer contains the record to be written or 
receives the record read. 

(code) The name of the 2-byte field to contain the return 
code passed back by FILEIO. This can be a FILEIO 
return code, a system error code or it can be passed 
from the Indexed Access Method. 



Indexed File Request Types 

RELS Release from sequential processing mode (ENDSEQ) 
RELR Release a record held for update (RELEASE) 
PUTU Put operation, update mode (PUTUP) 
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FILEIO 

PUTD 
PUTN 
GETD 
GETS 
IDEL 
ICLS 
GTRU 
GTSU 



Put operation, delete mode (PUTDE) 

Put operation, new mode, adds a record to the file (PUT) 

Get operation, direct read (GET) 

Get operation, sequential read (GETSEQ) 

Delete operation (DELETE) 

Close an Indexed data set (DISCONN) 

Direct get, update mode (GET) 

Sequential get, update mode (GETSEQ) 



Indexed file requests cause invocation of the Indexed Access 
Method function shown in parentheses. Files are accessed in 
the PROCESS mode and are shared. See "Chapter 4. Indexed 
Access Method" on page 327 for more information. 



Direct File Request Types 



READ Read the record defined by the RRN field of the FCA 
into the user-provided buffer 

WRIT Write the record defined by the RRN field of the 
FCA into the user-provided buffer 

SEOD Set the system maintained EOD pointer to the record 
number provided in the RRN field of the FCA 
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FILEIO 



FILEIO Return Codes 



Code 



Descr i pt i on 



-1 
201 
202 
203 

204 
205 
206 
207 
208 



Successful operation 

Data set not found 

Volume not found 

No file table entries are available; all have 

updates outstanding. 

I/O error reading volume directory 

I/O error writing volume directory 

Invalid function request 

Invalid key operator 

SEOD record number greater than data set length 






Other return codes not shown above are returned by the 
Indexed Access Method or by the system data management support. 

For further information on CALL FILEIO see the Commun i cat i ons 
and Terminal Applications Guide 
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FTAB 



FTAB 






Multiple Terminal Manager 



The FTAB function sets up a table which describes the unpro- 
tected (input) fields placed in the input buffer following a 
SETPAN or CHGPAN operation. This description is useful for such 
things as positioning the cursor to a specific field or to a 
precise location within a field. 

The FTAB code must be included in the application link-edit 
step in order to be available to the application program. Refer 
to the Utilitiest Operator Commands* Program Preparation! 
Messages and Codes for details on link-editing. 

Syntax 



label 



CALL 



FTAB, (table), (si ze), (return code) 



Requ i red : all 
Defaults: none 
Indexable: none 






Operands Descr i pt i on 

table The table operand is made up of a sequence of 
three-word entries. Each three-word entry 
describes an unprotected field of the screen image 
in the input buffer in the order: row, column, and 
length. The sequence begins at the location of the 
variable named in the table operand and is repeated 
for each successive field of the screen. Following 
is an example of the table format: 



o 
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TABLE 



TABLE+6 



TABLE+12 



FTAB 



(word one of the first field) 
(word two of the first field) 
(word three of the first field) 
(second field) 



(third field) 



row 

column 

length 

row 

column 

length 

row 

column 

length 



where n is equal to the value of the size operand 



s i ze 



This operand is one word long and contains the 
number of entries in the table* This decimal value 
can be in the range 1 to 32767. 



Note ? Unused fields in the FTAB table are always 
set to zero . 



| return code 



This operand is the name of a one-word field 
reserved for a return code that represents the com- 
pletion status of the FTAB function. 



| Return Codes 



Code 



Descr i pt i on 



-2 

-1 

1 

2 



FTAB code not link-edited with application 
successful return 
no data fields found 
data table truncated 
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LINK 






Multiple Terminal Manager 

A CALL to LINK causes the named Multiple Terminal Manager pro- 
gram to be loaded and executed (replacing the current program). 

If a SETPAN or CHGPAN precedes the LINK, the contents of the 
input buffer will be displayed for 4978, 4979, or 3101 termi- 
nals and the buffer freed. The output buffer is passed 
unchanged to the next program. 

The program being linked to receives the standard parameter 
list for application programs (input buffer, output buffer, 
etc . ) . 

Syntax 



label 



CALL LINK, (pgmname) 



Required: all 
Defaults: none 
Indexable: none 






Operands Descr i pt i on 

pgmname The name of the variable containing the 8-byte 
program name (right padded with blanks, if neces- 
sary) . 

If the program name is invalid or cannot be found, this module 
returns to the caller; therefore, any return to the user from 
CALL LINK is an error condition. 
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Example 



LINK 



CALL LINK, (PROG) 
GOTO ERROR 



PROG 



DATA C'PROGNAME" 
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LINKON 



o 



Multiple Terminal Manager 




Syntax 



label 



CALL LINKON, (pgmname) 



Requ i red : all 
Defaults: none 
Indexable: none 






Operands 



Descr ipt i on 



(pgmname) The name of a variable containing the 8-byte 
program name (right padded with blanks, if neces- 
sary) . 

If the program name is invalid or cannot be found, this module 
returns to the caller; therefore, any return to the user from 
CALL LINKON is an error condition. 



Example 



CALL LINKON, (PROG) 
GOTO ERROR 



PROG 



DATA 



CL8 f PR0G f 
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MENU 



MENU 



Multiple Terminal Manager 



CALL MENU immediately aborts the current dialogue and causes 
the terminal's menu screen (or request for program name mes- 
sage) to be displayed. 

The operator can cause this at any time by pressing PF3 on an 
| IBM 4979/4978/3101, or by typing OUT on an asynchronous termi- 
nal while in a dialogue. 

Syntax 



label 



CALL MENU 



Required: none 
Defaults; none 
Indexable: none 



Operands Descr i pt i on 
none none 
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SETCUR 



SETCUR 



r\ 



Multiple Terminal Manager 



CALL SETCUR specifies the position at which the cursor is to be 
displayed for the next output cycle. The cursor position is 

and column coordinates on the 



expressed as 
screen . 



a pair of row 



Each screen panel specifies a cursor position to be used while 
the screen is active (until the next SETPAN or CHGPAN). This 
function permits you to override the cursor position for the 
next output . 

Syntax 



label 



CALL SETCUR, (row), (column) 



Requ i red : all 
Defaults: none 
Indexable: none 



v_y 



Operands Descr i pt i on 

(row) The label of a word containing the row number at 
which the cursor is to be set. Allowable row num- 
bers are 0-23; row is the top line of the screen. 

(column) The label of a word containing the column number at 
which the cursor is to be set. Allowable column 
numbers are 0-79; column 79 is the rightmost posi- 
tion of a row . 

Example : 

Set cursor position to lower righthand corner 
of a 4978 or 3101 display. 



CALL 



SETCUR, (ROW), (COLUMN) 



ROM 
COLUMN 



DATA 
DATA 



F f 23* 
F»79» 



BOTTOM LINE 
RIGHTMOST CHARACTER 
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SETPAN 



SETPAN 



Multiple Terminal Manager 



The SETPAN routine causes the specified screen format to be 
read into the input buffer (replacing the last operator 
input) and sets a switch to cause the screen format to be writ- 
ten to the screen during the next output cycle. Any nulls 
(X'00 T ) in the screen image Mill be written unprotected. All 
other characters will be written protected. In addition to 
placing the 1920 byte screen panel into the input buffer, any 
unprotected defaults that were specified when the screen was 
built are moved, concatenated, into the output buffer. The cur- 
sor position for the next display after SETPAN will be set to 
the first unprotected character position. Before executing a 
CALL SETPAN, be sure to save any needed information which is in 
the buffers as it will be overlaid by the panel definition. 



Syntax 



label 



CALL SETPAN, (dsname), (code) 



Requ i red : all 
Defaults: none 
Indexable: none 



c 



Operands Description 

(dsname) The name of a variable containing the 8 byte data 
set name of the desired screen format in the SCRNS 
vo lume . 

(code) The label of a word in which SETPAN will place a 
return code . 

The SETPAN return codes are: 
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SETPAN 






Code 
-501 
-500 

-1 
1 



Other 



Descr i pt i on 

Screen data set not found. 

This terminal is not an IBM 4978/4979/3101; 
no action has been taken. 

Successful, new panel in buffer 

Warning, the data set does not contain a 

valid screen image. The input buffer has 

been set to unprotected blanks (X'00') and 
the cursor position set to 0. 

Warning, too many unprotected default 
characters in the screen definition. The 
number of default characters that will 
be displayed has been truncated. This 
return code will be received if there are no 
default unprotected characters in the screen. 
The $IMAGE utility initially assigns 1920 
unprotected characters to a screen. This 
number is unchanged if the data 
(non-protected) was not modified using the 
edit mode of the $IMAGE utility. 

Return code from disk READ. 



J 



Example 



CALL SETPAN, ( SCR EEN01),(RC) 



SCREEN01 DATA C'SCREENOl 1 
RC DATA F f 0» 
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WRITE 



WRITE 



Note : The EDL task control 
page 317 . 



Multiple Terminal Manager 



WRITE is located under "WRITE" on 



The Multiple Terminal Manager provides CALL WRITE to write out- 
put messages to asynchronous terminals without allowing opera- 
tor response. It writes the specified buffer contents to the 
current terminal. While writing, other terminals are permitted 
to operate. When I/O is complete* the current user program is 
reloaded and reentered at the next sequential instruction 
after CALL WRITE. 

No operator entry is permitted (see ACTION if operator entry is 
required). Printers and 4978/4979 displays are not supported 
by CALL WRITE. 

Syntax 



c 



label 



CALL WRITE, (buffer), (length), (crlf) 



Requ i red : al 1 
Defaults: none 
Indexable: none 



Operands Descr i pt i on 

(buffer) The label of a buffer of EBCDIC text of any length. 

(length) The label of a word containing the number of 
characters in the buffer. 






(crlf) The label of a word specifying the CRLF option. A 
binary value of 1 in a word specifies that the 
terminal is to be issued a CR and LF after the 
message is sent. Any other value results in no 
CRLF be i ng sent . 

If no CRLF is specified (crlf word is not 1), trailing blanks 
in the buffer are transmitted to permit you to position the 
terminal for the next message or operator response. 
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WRITE 



The Multiple Terminal Manager does not keep track of current 
terminal cursor or carriage position. No CRLF is inserted 
if* due to messages without CRLF» or a buffer size larger 
than the terminal line length* the right margin is reached. 



4~\ 

v y 



If executed when using an IBM 4978/4979, control returns imme 
diately to the caller. 

Upon completion* the contents of the buffer are unchanged. 



^-K^y 1 
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CHAPTER 6. PROGRAMMING EXAMPLES 

In this chapter several examples are presented to demonstrate 
the use of the Event Driven Language instructions for typical 
app 1 i cat i ons . 

It should be noted that most of the examples shown here are not 
complete programs in that they do not contain PROGRAM, IODEF, 
ENDPROG, and END statements. 

Following is a list of the examples that are included, along 
with the title of each example. 

Example 1 -- Read and print date 

Example 2 — Analog input 

Example 3 -- Analog input with buffering to disk 

Example 4 -- Digital input and averaging 

Example 5 -- Index register usage 

Example 6 — Use of MOVEA 

Example 7 -- A two task program with ATTNLIST 

Example 8 -- Program loading functions 

Example 9 — Floating point, WAIT/POST, GETEDIT/PUTEDIT 

Example 10 — User exit routine 

Example 11 — I/O Level control program 

Example 12 — Graphics example 

Example 13 — Format and display trace data 

Example 14 — Use of Indexed Access Method 

Example 15 — Write data to tape data set 

Example 16 — Processing standard labels using BLP 

Example 17 — Write a data set to a SL tape then READ it 

Example 18 — Initialize and WRITE a NL tape 

Example 19 — READ the third file on tape 
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EXAMPLE l: READ AND PRINT DATE 

Read in and print the date on a terminal. 

* ENQUEUE FOR THE TERMINAL 
START ENQT 

PRINTEXT '3EXAMPLE 1 - ENTER THE DATES' 

GETVALUE DAY, » DAY ? T 

GETVALUE MONTH, 1 MONTH ? * 

GETVALUE YEAR, 1 YEAR ? • 

PRINTEXT ' THE DATE ' ,SKIP=5 

PRINTNUM DAY, 3 PRINT DAY, MONTH & YEAR 

PRINTEXT SKIP=1 SKIP TO NEW LINE 

* DEQUEUE TERMINAL 

DEQT 

* ... CONTINUE PROGRAM 

DAY DATA F , 0» 

MONTH DATA F f 0» 

YEAR DATA F'O' 

The program enqueues for the terminal in order to provide 

uninterrupted use while keying in the date and printing it 

back. An introductory message is typed, preceded and 

followed by carriage returns, followed by three input 

requests using the GETVALUE instruction. Five lines are ^ 

skipped, and the date message is printed. Since the DAY, VV 

MONTH, and YEAR are stored in adjacent locations, only one 

PRINTNUM statement is needed to print all three numbers. At 

the end of the program, the terminal is dequeued to allow 

access by other users. 

In this example, the program may be simplified by using 
one GETVALUE instruction to read all three values. The 
output from this program is illustrated in the following 
examp le . 
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EXAMPLE 1 - ENTER THE DATE 
DAY ? 30 
MONTH ? 7 
YEAR ? 79 



THE DATE: 



30 



79 
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TKNAME 


PROGRAM 




IODEF 




IODEF 


START 


SBIO 


* 






DO 




STIMER 




SBIO 



EXAMPLE 2: ANALOG INPUT 

This program takes 256 samples from analog input address All 
at a sampling rate of 10 points /second. Set the run light on 
in the lab at the start of the run and turn it off at the end. 
The run light is connected to bit 3 of group D02 . 

START 

D02,TYPE=GR0UP,ADDRESS=87 

AI1,ADDRESS=83 

D02,1,BITS=(3,1) TURN ON RUN LIGHT 

256, TIMES SET UP FOR 256 PTS 
100 SET TIMER FOR 100 MS 

All, BUFR, INDEX READ All WITH 

* AUTOMATIC INDEXING INTO THE BUFFER f BUFR f 

* AND THEN WAIT FOR THE TIMER TO EXPIRE 
WAIT TIMER 
ENDDO END OF LOOP 

* 

SBIO D02,0,BITS=(3,1) TURN OFF RUN LIGHT 
* 

* ... CONTINUE PROGRAM 
* 
BUFR BUFFER 256 256 WORD BUFFER 



The program begins by writing a 1 into bit 3 of digital output V. V 

group D02. A loop is initialized for 256 cycles using the DO 

command. At this point, a software timer is set up for 100 

milliseconds to provide sampling at 10 points /second. The 

analog data is read into BUFR using the SBIO instruction with 

automatic indexing. After the data is read, the program 

waits for the timer to expire before returning for the next 

sample. When all the data is collected, the run light is 

turned off by writing a into bit 3 of D02. 
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EXAMPLE 3: ANALOG INPUT NITH BUFFERING TO DISK 



This program takes analog data readings at equal time inter- 
vals. The number of data points and the time interval in 
milliseconds are read in from the operator's terminal. The 
program will allow from 10 to 10,000 data points to be taken 
at time intervals between 10 milliseconds and 10 seconds 
(10,000 msec). The data collection is initiated by a process 
interrupt start signal. The program is aborted by using the 
keyboard function f AB T . Also, a second keyboard function, 
"NP', is used to print a status switch. The switch will be 
equal to zero if the start signal has not been received or 
equal to the number of data points to be read if the start 
signal has been received and data collection has begun. 

* TITLE 'SAMPLE ANALOG DATA ACQUISITION PROGRAM' 

* 

READATA PROGRAM BEGIN, DS=?? 

ATTNLIST (AB, ABORT, NP,SWPRNT) 
x 

* ABORT THE EXPERIMENT 
* 

ABORT MOVE SWITCH, 1 

ENDATTN 
x 

* PRINT OUT EXPERIMENT SWITCH 
x 

SWPRNT PRINTEXT TXT10 

PRINTNUM SWITCH 

PRINTEXT SKIP=1 

ENDATTN 
* 

IODEF AI1,ADDRESS=91,POINT=0 

IODEF PI1,ADDRESS=94,BIT=15 
x 

* EXPERIMENT INITIALIZATION 
X 

BEGIN PRINTEXT TXT1 

GETVALUE RUNUM,TXT2 REQUEST RUN IDENTIFIER 
GETINT GETVALUE INTVL,TXT3 REQUEST TIME INTERVAL 

IF (INTVL,LT,10) ,0R, ( INTVL , GT , 1 0000 ) , GOTO, GETINT 
GETPTS GETVALUE NPTS,TXT4 REQUEST NO. OF POINTS 

IF (NPTS,LT,10),OR, ( NPTS , GT , 1 0000 ), GOTO , GETPTS 
x 

WRITE DS1,RUNUM RUN PARAMETERS IN 1ST SECTOR 

RESET SWITCH 

PRINTEXT TXT9 PRINT READY MESSAGE 

WAIT PI1, RESET WAIT FOR START SIGNAL 

MOVE SWITCH, NPTS SET SWITCH TO NPTS 
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* THIS IS THE DATA ACQUISITION PORTION OF THE PROGRAM 

DO NPTS LOOP COUNT SET ABOVE f 

STIMER INTVL TIME INTERVAL SET ABOVE %y 

SBIO All, BUFFER, INDEX READ A DATA POINT 

IF (BUFINDEX,EQ, 128), GOTO, ATTACH 1ST BUFFER 

FULL? 

IF (BUFINDEX,NE, 256), GOTO, TWAIT ..NO, IS 2ND 

FULL? 

MOVE BUFINDEX,0 ..YES, RESET BUFFER INDEX 

ADD POINTCNT,256 INCREMENT DATA COUNTER 
x 
ATTACH IF (DISK, NE, -1) , GOTO, STOP IS DISK TASK 



ATTACHED? 



START DISK OUTPUT TASK 
ATTACH DISKTASK 



* 

TNAIT WAIT TIMER WAIT FOR END OF TIME INTERVAL 

IF (SWITCH, EQ,1) , GOTO, STOP TEST FOR 'ABORT* 
ENDLOOP ENDDO 
x 

IF (BUFINDEX,EQ,0) ,OR, ( BUF INDEX , EQ , 128 ) , GOTO, STOP 

WAIT DS1 ..YES, WAIT FOR DISK WRITE 

ADD POINTCNT,BUFINDEX UPDATE DATA COUNTER 

ATTACH DISKTASK START LAST DISK OUTPUT 
x 
STOP WAIT DS1 WAIT FOR LAST OUTPUT OPERATION 

ENQT GET CONTROL OF TERMINAL 

PRINTEXT TXT6 PRINT TERMINATING MESSAGE x J 

PRINTNUM POINTCNT 

PRINTEXT TXT7 

DEQT RELEASE TERMINAL 

PROGSTOP 
x 
x 

x THIS IS THE DATA RECORDING TASK 

x IT IS ATTACHED BY THE DATA ACQUISITION TASK EACH 

x TIME THAT 128 WORDS OF DATA HAVE BEEN READ IN. 
X ONE PORTION OF THE BUFFER WILL BE TRANSFERRED TO 
x DISK WHILE DATA IS SIMULTANEOUSLY BEING READ INTO 
x THE OTHER PORTION OF THE BUFFER, 
x 

x THIS TASK RUNS ON LEVEL 3 AT A LOWER PRIORITY THAN 
x THE DATA ACQUISITION TASK IN ORDER TO MAXIMIZE 
* TIMING ACCURACY, 
x 

DISKTASK TASK DISK1 , 300 , EVENT=DISK 
DISK1 WRITE DS1,BUFFER1,ERR0R=DISKERR 

DETACH -1 . .OK 

WRITE DS1,BUFFER2,ERR0R=DISKERR 

DETACH -1 . .OK 

GOTO DISK1 
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* 
* 

DISKERR 



PRINT DISK ERROR MESSAGE 



* 

* 

* 

* 

TXT1 

TXT2 

TXT3 

TXT4 

TXT5 

TXT6 

TXT7 

TXT9 

TXT10 

* 

POINTCNT 

SWITCH 

RUNUM 

INTVL 

NPTS 

ERROR 

BUFFER 

BUFFER1 

BUFFER2 

* 



MOVE ERROR, DISKTASK 

ENQT 

PRINTEXT TXT5 

PRINTNUM ERROR 

PRINTEXT SKIP=1 

DEQT 

ENDTASK 1 



SAVE ERROR CODE 

GET CONTROL OF TERMINAL 



RELEASE 
DETACH 



TERMINAL 
WITH CODE = 



TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 



DATA AND CONSTANTS 

3SAMPLE ANALOG DATA ACQUISITION PROGRAMS 1 

3ENTER RUN NUMBER f 

3ENTER INTERVAL IN MS (10-10000) • 

3ENTER NO. OF POINTS (10-10000) » 

3DISK ERROR » 

3RUN ENDED AFTER • 

P0INTS3* 
3READY FOR PI SIGNAL TO BEGIN TAKING DATA3' 
3EXPERIMENT SWITCH = f 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



NUMBER OF POINTS TAKEN 

SET TO , 1» FOR 'ABORT' 

RUN IDENTIFIER 

TIME INTERVAL 

NUMBER OF POINTS TO TAKE 



F'O' 

F'0 f 

F f T 

F'O" 

F»0» 

F f 0» 

BUFFER 256,INDEX=BUFINDEX DATA BUFFERS 
EQU BUFFER FIRST 128 WORDS 
EQU BUFFER+256 SECOND 128 WORDS 

ENDPROG 
END 



o 
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EXAMPLE 4: DIGITAL INPUT AND AVERAGING 



This example illustrates the programming of a simple time 
averaging application. The program should read digital 
input group DI1 every time a process interrupt occurs on PI2. 
One complete scan is 128 data points. Each scan is to be 
added to a double-precision averaging buffer. The number of 
scans is read from the terminal as an initialization parame- 
ter. Also* the program asks whether to reset the averaging 
buffer before starting to scan. The maximum number of scans 
must be less than 1000. 



START 



BEGIN 



GETVALUE 

IF 

RESET 

QUESTION 

MOVE 

DO 

DO 

WAIT 

RESET 

SBIO 

ENDDO 



NSCAN, TXT1 GET NO. OF SCANS 

(NSCAN, GE, 10 00), GOTO, ERROR 

PI2 

RESET AVERG. BUFFER? 
YES - RESET IT 
SET UP FOR NSCANS 
SET FOR 128 POINTS 
WAIT FOR INTERRUPT 
RESET INTERRUPT 

READ DIKINDEXING) 



TXT2,N0=BEGIN 

ABUFR, 0,256 

NSCAN 

128 

PI2 

PI2 

DI1,BUFR, INDEX 



ONE SCAN COMPLETE - MOVE DATA TO AVERG BUFFER 



ADDV 
MOVE 
ENDDO 



ABUFR, BUFR, 128, PREC=D 

1,0 RESET BUFFER INDEX 



ALL SCANS COMPLETE 
PRINTEXT TXT3 






'■v^y- 



TXT1 


TEXT 


'3NUM 


TXT2 


TEXT 


» RES 


TXT3 


TEXT 


1 ALL 


NSCAN 


DATA 


F'O" 


BUFR 


BUFFER 


128,1 


ABUFR 

* 

ERROR 


BUFFER 


256 


PRINTEXT 


TXT4 




GOTO 


START 


TXT4 


TEXT 


1 TOO 



THE REST OF THE PROGRAM 

>ER OF SCANS - » 
!T AVERAGING BUFFER? 
SCANS C0MPLETE3' 



PRINT ERROR MESSAGE 
RETURN FOR INPUT 
MANY SCANS - RE-ENTERS' 

In this example, the number of scans to be done is read from 
the terminal and checked against 1000. If it is greater than 
or equal, an error message is printed and the program returns 
for a new input parameter. The operator is asked if the aver- 
aging buffer is to be reset. If yes, the MOVE instruction 
sets the averaging buffer (ABUFR) to 0. A loop is then ini- 
tialized for the number of scans desired. A second loop is 
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NUMBER OF SCANS - 33 
RESET AVERAGING BUFFER? Y 
ALL SCANS COMPLETE 
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EXAMPLE 5: INDEX REGISTER USAGE 



This example illustrates the use of the Event Driven Execu- 
tive index registers. The two registers are symbolically 
referred to by #1 and #2. In this example* a vector BUFA, of 
length 10 00, is to be compressed* removing all words equal to 
and storing the compressed vector in the buffer f BUFB'. 
When the buffer has been scanned, the length of the new buff- 
er, BUFB, is to be printed on the terminal. 

MOVE #1,0 SET REG 1=0 

MOVE #2,0 SET REG 2=0 
* 

DO 1000 

IF C(BUFA,#1) ,EQ,0) ,G0T0,INC0NE 

MOVE (BUFB,#2),CBUFA,#1) 
* 

ADD #2,2 INCREMENT REG 2 

INCONE ADD #1,2 INCREMENT REG 1 

ENDDO 
* 

MOVE NUMBERB,#2 SAVE BUFB LENGTH 

SHIFTR NUMBER, 1 

PRINTEXT MESSAGE 

PRINTNUM NUMBERB 

PRINTEXT SKIP=1 



MESSAGE TEXT f 3THE LENGTH OF BUFB = 
NUMBERB DATA F'0 f 



BUFA BUFFER 1000 
BUFB BUFFER 1000 



The example begins by initializing the two registers, #1 and 
#2. A DO loop is set up to scan the BUFA buffer of length 
1000. If the value of BUFA is equal to 0, only the first reg- 
ister is incremented. Therefore, #1 is used to index through 
BUFA and #2 is used to index through the new buffer, BUFB. If 
the value of BUFA is non-zero, the data is moved to BUFB and 
both registers are incremented. When the scan is complete, 
the value of #2 is saved at the location NUMBERB and the mes- 
sage printed on the terminal. This program will display the 
following line on the terminal: 



l.y 



w 



O 
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EXAMPLE 6: USE OF MOVEA 



This example shows the use of the MOVEA instruction in estab- 
lishing addressability and indexability through a buffer. 
It is desired to average all values in the buffer and print 
the result . 






MOVEA 

DO 

ADD 

ADD 

ENDDO 

DIVIDE 

PRINTEXT 

PRINTNUM 

PRINTEXT 



#1,BUFFER1 

256 

RESULT, (0,#1) ,PREC=D 

#1,2 



RESULT, 256, PREC=D 
'3AVERAGE VALUE OF ALL 
RESULT, DWORD 
SKIP=1 



MOVE ADDRESS 



SUM THE BUFFER 



READINGS IS 



CONTINUE PROGRAM 



BUFFER1 
RESULT 



BUFFER 
DATA 



256 
2F'0 f 



DOUBLE PRECISION 



CONTINUE PROGRAM 



In this example the address of the buffer, BUFFER1 is moved 
into register #1. The DO loop is entered, and for each pass 
through the loop, register tl is incremented to the next 
word. RESULT is declared as 2 words, the ADD has a PREC=D 
parameter in order to hold the sum. After the division, 
RESULT is printed. The output from this program is illus- 
trated in the following example. 



\^y 
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EXAMPLE 7: A TWO TASK PROGRAM WITH ATTNLIST 



The preceding examples illustrate the use of many of the 
Event Driven Executive instructions. This example is given 
to illustrate a program containing two simultaneously exe- 
cuting tasks and the ATTNLIST statement being used for opera- 
tor control . 

The problem is to count the number of process interrupts 
occurring on process interrupt PI1 for an extended period, 
printing the total number recorded on the terminal every min- 
ute. In addition* the program must be started* stopped* and 
restarted from the terminal. The complete program follows: 

* COUNT PROCESS INTERRUPTS 
* 

TASK1 PROGRAM TABL.1,100 

ATTNLIST (RUN, START, STOP, STOPIT) INPUT CODES 

* ! ATTENTION ROUTINES 



START 


MOVE 


PICOUNT, 




SET PI COUNTER=0 




MOVE 


MINCOUNT, 




SET MINUTES=0 




POST 


RUNECB 




START RUN 


* 
STOPIT 


ENDATTN 






RETURN TO SUPERVISOR 


MOVE 


SWITCH, 1 




SET STOP SWITCH 




ENDATTN 








* 


DATA AND 


TEXT MESSAGES 




PICOUNT 


DATA 


F'0 f 




PI COUNTER 


MINCOUNT 


DATA 


F f f 




MINUTES 


COUNTS 


DATA 


F'O* 




SAVE WORD 


SWITCH 


DATA 


F'O' 




STOP SWITCH 


RUNECB 


ECB 








TXT1 


TEXT 


■ NUMBER OF 


INTERRUPTS AFTER • 


TXT2 

* 

* TASK 


TEXT 


T MINUTES - 


t 




1 - PRINT NUMBER OF 


INTERRUPTS 


X 


EVERY MINUTE ON 


TERMINAL 


TABL1 


ATTACH 


TASK2 




START TASK 2 




RESET 


RUNECB 




RESET THE RUN EVENT 


AWAIT 


WAIT 


RUNECB 




WAIT FOR START CODE 




STIMER 


60000 




SET TIMER FOR 1 MIN 




MOVE 


COUNTS, PICOUNT 


SAVE PICOUNT 




ENQT 


$SYSPRTR 
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X 

* 

TASK2 

x 

TABL2 

x 



PRINTEXT 
PRINTNUM 
PRINTEXT 
PRINTNUM 
PRINTEXT 
DEQT 
WAIT 
ADD 
IF 

ENQT 

PRINTEXT 
DEQT 

PROGSTOP 
TASK 2 - WAIT 
INCRE 

TASK 



TXT1 PRINT PI COUNTS 

MINCOUNT AND MINUTES 

TXT2 

COUNTS 

SKIP=1 

TIMER WAIT FOR TIMER 

MINCOUNT, 1 INCREMENT MINUTES 

C SW I TCH,EQ,0), GOTO, AWAIT 

SSYSPRTR 

'3 COUNT PROCESS INTERRUPTS ENDING3' 



FOR A PROCESS INTERRUPT AND 
MENT THE COUNTER 



STIMER 

ADD 

GOTO 

ENDTASK 

ENDPROG 

END 



TABL2,10 

15000, WAIT 

PICOUNT, 1 
TABL2 



SET TIMER FOR 15 SECONDS 
AND WAIT FOR INTERRUPT 
INCREMENT COUNTER AND 
RETURN TO WAIT 

END OF PROGRAM 






PROGRAM names the primary task, TASK1, gives the label of the 
first instruction, TABL1, and defines the priority of the 
primary task as 100. Keying RUN or STOP causes the user pro- 
gram to be entered at START or STOPIT, respectively, and exe- 
cuted under the ATTNLIST task. START resets the interrupt and 
minute counters and releases TASK1 by posting the event 
RUNECB. 






TASK1 is started automatically by the system. It starts 
TASK2 via the ATTACH instruction. TASK2 starts at the 
instruction with label TABL2 and has a priority of 10. The 
event RUNECB is reset and the program issues a WAIT for the 
event. TASK1 is now suspended until RUN is keyed. When the 
event is posted, the program sets a timer for 60000 millisec- 
onds (1 minute). The number of interrupts is saved in 
COUNTS. The terminal is enqueued, the message printed, the 
terminal dequeued, the minute counter is incremented, and 
the program waits for the next interval. If, during the time 
period, STOP was keyed, the program will print a termination 
message and terminate. TASK2 sets a timer interrupt for 4 
seconds and waits on the interrupt, increments the counter, 
and returns to wait for the next interrupt. This will con- 
tinue indefinitely. 

This example illustrates the use of parallel running tasks 
and the possibilities for operator control and interaction. 
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EXAMPLE 8: PROGRAM LOADING FUNCTIONS 



The following program illustrates the process of one program 
loading another with the LOAD instruction. The program TEST1 
prints two opening messages separated by 2 blank lines, loads 
the program TEST2, tests for a successful LOAD and then WAITs 
for the loaded program to end. This illustrates how programs 
can be synchronized. 

TEST1 PROGRAM START1 

* 

START1 PRINTEXT f 3TEST PROGRAM L0ADING33' 

AGAIN PRINTEXT f 3HELL0 - TEST1 WILL LOAD TEST2a f 

* 

* 



LOAD TEST2,L0GMSG=N0,EVENT=EV1,ERR0R=ST0P1 
WAIT EV1 WAIT FOR TEST2 TO END 



QUESTION '3END THE PROGRAM (Y OR N) ?',NO=AGAIN 
ST0P1 PROGSTOP 
EV1 ECB 

ENDPROG 

END 

This is the program to be loaded, TEST2. It can also be 
loaded independently from a terminal. A message is printed, 
the program waits 5 seconds, prints again, and ends; TEST1 is 
notified by the supervisor that TEST2 has ended. 

TEST2 PROGRAM START2 

START2 PRINTEXT '3TEST2 HERE, I WILL DELAY 5 SEC0NDS3' 

STIMER 5000, WAIT 

PRINTEXT '3TIME IS UP, RETURNING TO TEST133* 

PROGSTOP LOGMSG=NO 

ENDPROG 

END 
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EXAMPLE 9: FLOATING POINT* WAIT/POST, GETEDIT/PUTEDIT 






The program prompts the user for two numbers* each can be up 
to 20 digits* with or without decimal points. It then per- 
forms floating-point addition* subtraction* multiplication* 
and division* and prints the results in floating-point 
notation with up to 14 digits after the decimal point. 

The use of the GETEDIT and PUTEDIT instructions using format- 
ting are illustrated, as well as WAIT and POST and floating 
po i nt ar i thmet i c . 

FPDEMO PROGRAM START , F L0AT=YES 

* 

ATTNLIST ATTNLIST (STOP , P0ST1 , CALC , P0ST2 ) 

* 

P0ST1 POST KBEVENT,1 
ENDATTN 

* 

P0ST2 POST KBEVENT 
ENDATTN 

START EQU * 

LOOP EQU * 

PRINTEXT 'PRESS "ATTN" ENTER "CALC" OR "STOP" 3» 
WAIT KBEVENT, RESET WAIT TILL CALC ENTERED 
IF KBEVENT, NE,-1, STOP GO TO STOP IF 

* STOP ENTERED N 

* vy 

READA EQU * 

PRINTEXT 'A = , ,SKIP=2 

GETEDIT FMTltWORK, ( ( A , 1 , L ) ) , SCAN=FREE GET A 
* 

READB EQU * 

PRINTEXT T B = » ,SKIP=2 

GETEDIT FMT1,W0RK, ( ( B , 1 , L ) ) , SCAN=FREE GET B 



398 SC34-0314 



LIST 



o 



EQU 

PRINTEXT 
FADD 
PUTEDIT 



f 3A + B = T 

A,B,RESULT=C,PREC=LLL 
FMT2,W0RK, ((C,1,D) 



PRINT A+B 



PRINTEXT 

FSUB 

PUTEDIT 



»3A - B = ' 

A,B,RESULT=C,PREC=LLL 
FMT2,W0RK, ((C,1,D) 



PRINT A-B 



PRINTEXT >3A » B = * 

FMULT A,B,RESULT=C,PREC=LLL 

PUTEDIT FMT2,W0RK, ( (C,1,D) 



PRINT A*B 



PRINTEXT f 3A / B = • 

FDIVD A,B,RESULT=C,PREC=LLL 

PUTEDIT FMT2,N0RK, C(C,1,D) 



PRINT A/B 



STOI 

* 

A 

B 

C 

D 

WOR 

FMT 

FMT 

KBE 



K 
1 
2 
VENT 



PRINTEXT 
GOTO 

EQU 
PROGSTOP 

DC 

DC 

DC 

DC 

TEXT 

FORMAT 

FORMAT 

ECB 

ENDPROG 

END 



SKIP=1 
LOOP 



2D T f 

2D , f 

2D , 0' 

2D , I 

LENGTH=20 

(F20.0) 

(E20.14) 
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EXAMPLE 10: USER EXIT ROUTINE 



These examples (actual code from the Event Driven Executive) 
i 1 lustrate : 

1 • How an instruction can be added to the Event Driven Exec- 
utive Macro Libraries by the user» using the USER 
i nstr uct i on . 

2. How a user exit routine is structured. 

The following macro definition illustrates how the user who 
understands assembler coding can create his own Event Driven 
Executive instructions using macros and the Event Driven 
Executive USER instruction. 

The SQRT macro call in the programming example is described 
under "SQRT" on page 277. 

LABEL SQRT rsq, root, rem 

is converted by the following macro definition (in MACLIB) 
and the Series/1 Macro or Host Assembler. 



&RSQ,&R00T,&REM,&P1=,&P2=,&P3= 

&SQRT f 'N, 

(N'&SYSLIST NE 3).ER1 ^ J 

SQRT,PARM=(&RSQ,&ROOT,&REM) , C 

P=(&P1,&P2,&P3) 

(&SQRT) .DONE 

$SQ&SYNDX 





MACRO 


&LABEL 


SQRT 




GBLB 




AIF 


&LABEL 


USER 




AIF 




GOTO 




$SQRT 


$SQ&SYNDX 


EQU 


.DONE 


ANOP 


&SQRT 


SETB 




MEXIT 


.ER1 


ANOP 




MNOTE 




MEND 



8, 1 ** NUMBER OF OPERANDS NOT 3 ** 



to: 

LABEL USER SQRT , PARM= ( RSQ , ROOT , REM ) 

GOTO $SQnn - On 1st occurrence 
$SQRT - of SQRT instruction 

$SQnn EQU * - only 

where $SQRT is used to include the actual user exit routine 
(SQRT) which calculates the square root. This routine could 
have been explicitly stated in the macro definition where 
$SQRT is coded, or, as in this case, brought in from the macro 
library where it was stored as the macro definition $SQRT. 
This technique for including the user exit routine relieves 
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the end user of the need to know whether the routine has or 
has not been included in his program. 

The user exit routine SQRT which is brought into the user 
program when $ S Q R T is encountered illustrates the consider- 
ations which are noted under USER instruction description. 



SQUARE ROOT ROUTINE 

LOAD VALUE 
SAVE HIGH ORDER 
R5 PUT CONSTANT IN R5 

CHECK INPUT FOR TOO LARGE 

IF ZERO ITS IN RANGE 

IF NOT, BACK TO CALLER 

ASSUME NEXT BIT IS A 1 

SWAP ROOT AND REMAINDER 

MPY REM BY 2 

MPY REM LOW ORDER BY 2 

NEXT ROOT BIT IS A 

SKIP UNLESS LON ORDER OF LW 

ADD CARRY TO HI ORDER OF LW 

SUB TRIAL ROOT FROM REM 

GO FIX REM 

SWAP REM AND TRIAL ROOT 

DOUBLE DIGIT FOR NEXT PASS 

HALF ADJUST FACTOR 

NOT DONE, GO AGAIN 

CORRECT ROOT 

POINT TO ROOT SAVE ADDR 

SAVE ROOT 

POINT TO REM SAVE ADDR 

SAVE REM 

POINT TO NXT INSTR 

SWITCH BACK TO EDL 

CORRECT REM 

SWAP REM AND ROOT 

SET THIS DIGIT TO ZERO 

GO SET UP FOR NEXT PASS 

SKIP UNLESS LOW WORD 

ADD CARRY TO HI ORDR WD 

SUB ROOT FROM REM 

GO SET UP FOR NXT PASS 

ZERO ROOT 

ZERO REM 

GO SET UP FOR EXIT 



1. The SQRT EQU * statement defines the entry point for the 
USER instruction generated above. 

2. On entry, Rl points to the location where the address of 
the first parameter is stored. The first instruction 
moves the double word (VALUE) to register 3 and 4. 
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SQRT 
* 


EQU 


X 


MVD 


(R1)*,R3 


SQ00 


MVW 


R3,R6 




MVWI 


X'8000 f , 




SRL 


14, R3 




JZ 


SQ01 




J 


SQ07 


SQ01 


AW 


R5,R3 




IR 


R6,R3 




SLL 


1,R3 




SLC 


1,R4 




JCY 


SQ06 




JEV 


SQ01A 




ABI 


1,R3 


SQ01A 


SW 


R6,R3 




JCY 


SQ05 


SQ02 


IR 


R6,R3 




AW 


R5,R3 


SQ03 


SRL 


1,R5 




JNZ 


SQ01 




SRL 


1,R3 


SQ04 


ABI 


2,R1 




MVW 


R3, (Rl)* 




ABI 


2,R1 




MVW 


R6, (Rl)* 




ABI 


2,R1 




BX 


RETURN 




AW 


R6,R3 




IR 


R6,R3 




SW 


R5,R3 




J 


SQ03 


SQ06 


JEV 


SQ06A 




ABI 


1,R3 


SQ06A 


SW 


R6,R3 




J 


SQ02 


SQ07 


MVBI 


0,R3 




MVBI 


0,R6 




J 


SQ04 



At location SQ04, Rl is incremented by 2 to point to the 
location where the address of the second parameter 
(ROOT) is stored. Two lines lower* at the ABI 
instruction* Rl is again incremented to point to the 
location where the address of the third parameter (REM) 
i s stored . 






Two lines lower* Rl is again incremented by 2 to point to 
the return address - the Event Driven instruction fol- 
lowing the USER instruction. 

At the line prior to SQ05* the routine branches back to 
the user . 

As required* R2 has not been changed by the routine. 



f > 

w 



v_y 
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EXAMPLE 11: I/O LEVEL CONTROL PROGRAM 



This program illustrates the use of EXIO control functions to 
provide your own support for an I/O device. Its use would 
require definition of the EXIO devices by including state- 
ments similar to the following in the 'System Configuration' 
statements * 

EXIODEV E0,MAXDCB=1 

EX I ODE V E4,MAXDCB=3,RSB=6,END=YES 

The devices to be controlled are the controller and one line 
of PCS (IBM 4987, Programmable Communication Subsystem). 
The program prepares both devices to interrupt and loads con- 
trol ler storage . 

LDPCS PROGRAM PSTART 

* Attach Interrupt Handler Tasks 
* 

These tasks will wait until the EXIO interrupt handler 

P o s 1 5 an appropriate ECB. They will then service that 

particular interrupt. 

* 

PSTART ATTACH DEINT HANDLES DEVICE END 

ATTACH EXCINT HANDLES OTHER INTERRUPTS 
* 
* 

* Place a User List Address in the Device Descriptor Block 
* 

* PCSLIST points to a list of 3 addresses used by the EXIO 

* interrupt handler: 
* 

PCSID STORES 3 WORDS DESCRIBING THE INTERRUPT 

PCSECB A LIST OF ECBS 

PCSSDCB A DCB USED TO START CYCLE STEAL STATUS 

* 

* 

EXOPEN EO, PCSLIST, ERROR = OPNERR 
EXOPEN E4, PCSLIST, ERROR=OPNERR 
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* Prepare the Controller to Interrupt 
* 

* The instruction points to the IDCB 'PRPIDCBO' which 

* describes an 10 operation which will prepare the device 

* at address EO to interrupt on hardware level 1. If the 

* 10 instruction is not accepted, execution will resume at 

* 'PREPERR 1 . 
* 



~KS 



* 



EXIO PRPIDCB0,ERROR=PREPERR 



* 

* Prepare Line 4 to Interrupt 
* 

EXIO PRPIDCB4,ERR0R=PREPERR 
* 
* 

* Load PCS Controller Storage 
* 

* The IDCB points to a DCB, 'LDDCB', which describes an 10 

* operation which will load the controller with the data at 

* 'PSCORE'. 
* 



* 



EXIO LDIDCB,ERROR=LDERR 



* 
* 

* Wait for the Load to Complete 

* r 

* This will be indicated by the posting of the ECB \ 

* f D0NECB f . 'DONECB 1 will be posted by the interrupt 

* handler task *DEINT'. The task 'DEINT 1 will execute when 

* the ECB 'PDEECB' is posted. 'PDEECB' will be posted by 

* the EXIO interrupt handler when an interrupt with a ccode 

* 3 (device end) is received. 
* 

* 

WAIT DONECB 
PREND PROGSTOP 
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* Enter here if EXOPEN instruction executes with error 
* 
* 
OPNERR MOVE CCLDPCS 

ENQT 

PRINTEXT '3EX0PEN REJECTED, CC = f 

PRINTNUM CC,MODE=HEX 

DEQT 

GOTO PREND 
* 
* 

* Enter here if Prepare Command is not accepted 
* 

* 

PREPERR MOVE CCLDPCS 

ENQT 

PRINTEXT f 3PCS PREPARE EXIO REJECTED, CC = ? 

PRINTNUM CC,MODE=HEX 

DEQT 

GOTO PREND 
* 

* Enter here if LOAD command is not accepted 
* 

* 

LDERR EQU * 

MOVE CCLDPCS 
*N EN Q T 

L y PRINTEXT 'SLOAD EXIO REJECTED, CC = ' 

PRINTNUM CCMODE = HEX 

DEQT 

GOTO PREND 
* 
* 

* Execute if interrupt other than f D e v i c e End" is received 
* 

* 

EXCINT TASK EXCSTART 

EXCSTART WAIT PEXCECB , RESET 

AND PEXCECB, X'7FFF f 

ENQT 

PRINTEXT '3 INTERRUPT, CCODE & DEV ADR = • 

PRINTNUM PEXCECB, MODE =H EX 

DEQT 

POST DONECB,2 

ENDTASK 
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* Execute if 'Device End" interrupt is received 

* f^) 
DEINT TASK DESTART ^ y 
DESTART WAIT PDEECB, RESET 

ENQT 

PRINTEXT f 3PCS CONTROL STORAGE LOADEDS 1 

DEQT 

POST DONECB,-! 

ENDTASK 
x 
* 

* Define where information is to be stored after EXIO 

* device interrupt 
x 

x 

PCSLIST DATA A(PCSID) 

DATA ACPCSECB) 

DATA ACPCSSDCB) 
x 
x 

x Will Receive: Interrupt ID Word, LSR, ADDR of ECB Posted 
x 
x 

PCSID DATA SF'O' 
x 
x 

x Addresses of ECB's to be posted 
x 
x 
PCSECB DATA A(PEXCECB) CONTROLLER END 

DATA A(PEXCECB) PCI 

DATA A(PEXCECB) EXCEPTION 

DATA A(PDEECB) DEVICE END 

DATA ACPEXCECB) ATTENTION 

DATA ACPEXCECB) ATTN + PCI 

DATA ACPEXCECB) ATTN + EXC 

DATA ACPEXCECB) ATTN + DE 
x 

PEXCECB ECB 

PDEECB ECB 

DONECB ECB 



V, 



-Jp 
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* This DCB will be used to start Cycle Steal Status if an 

* interrupt is received. 
* 

x 

PCSSDCB DCB IOTYPE=INPUT,COUNT=10,DATADDR=CSSDATA 

CSSDATA DATA 5F'0' CYCLE STEAL STATUS DATA 

CC DATA F'O 1 

x 

PRPIDCBO IDCB COMMAND=PREPARE,ADDRESS=E0 

PRPIDCB4 IDCB COMMAND=PREPARE , ADDRESS=E4 

LDIDCB IDCB COMMAND=START , ADDRESS=EO , 

MOD4=6,DCB=LDDCB 
LDDCB DCB DVPARM1 =0200 , COUNT=PCSLCNT , 

DATADDR=PCSCORE 
x 

x PCS Controller Storage Load 
x 
PCSCORE EQU x 

DC S^F'O 1 

DC X , 9284 , ,X , 92 8A t ,X , 0001 , ,X , 9 352 , ,X t 0000 , 

DC X'OOOl' ,X f 928F' ,X f 0001 f 

DC 97F'0 f 

DC X» 0005» , X' 935E , ,X' 0000' ,X' 0000' ,X' 0000' 

DC X f 936A ? ,X' 0800', X f 040 0' ,X'5B0 0* ,X f 9 368 f 

DC X f 4800 f ,X T A220 l ,X , 0700 f ,X f 501 f ,X T 3D04 , 

DC X f 9 37A» ,X f A204',X , 0002 , ,X'0101 f ,X , 0000 T 

DC 7F'0' 

DC X'0003 T ,X f 0D07 ? ,X f 0A00' 
PCSEND EQU x 
PCSLCNT EQU PCSEND-PCSSCORE 

ENDPROG 

END 
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EXAMPLE 12: GRAPHICS INSTRUCTIONS PROGRAMMING EXAMPLE 



In the following example the graphic control characters (GS, 
US, ESC* etc.) are assumed to have certain meanings for the 
terminal. A different terminal may require the use of dif- 
ferent control characters to perform a similar functions. 

The example illustrates the use of the graphics instructions 
described on the preceding pages. This program will print a 
message* plot a curve with axes* put the cross-hair on the 
screen* wait for the user to position the cross-hair and 
depress a key and carriage return* and then display the char- 
acter entered and x»y coordinates of the cross-hair posi- 
tion. The user may then end the program or start it again. 

The program starts at the label START where a short message 
is printed. The text string character count is reset, and 
the ESC code is put into TEXT1, followed by the FF character. 
The sequence ESC FF will erase the screen and send the alpha 
cursor to the home position (upper left corner). The 
PRINTEXT instruction will cause this to occur. Now* depend- 
ing on the type of terminal and the line speed* it may be 
necessary to delay for a s~e'C~orrd"to allow the erase sequence 
to complete. This is accomplished by the STIMER instruction. 
The text string is reset again and the graph mode character* 
GS, is added to the text string. The SCREEN instruction is 
used to form the 4 characters required to draw a dark vector 
to the screen address (520*300). The 4 characters represent Vy 1 
the Hi Y* Lo Y, Hi X* and Lo X values. To write an axis label 
at this position* it is necessary to return to alpha mode. 
This requires the US character. The two PRINTEXT 
instructions are executed to perform the full operation. 
Note XLATE=N0 on PRINTEXT prevents conversion of data as it 
is already in ASCII. 

Now the data, YDATA (8 points), is plotted using the YTPLOT 
instruction. The plot area and coordinates are given by the 8 
words at the label PCB. The plot area in screen addresses is 
500 to 1000 in the x-di recti on (horizontal) and 100 to 600 in 
the y-direction (vertical). The corresponding plot area in 
the user's coordinates is to 10 in the x-direction and -5 to 
5 in the y-direction. The X and Y axes are drawn by the next 
two XYPLOT instructions. Each of these is simply a 2-point 
plot, from the origin to the end point. The cross-hair cur- 
sor is now put on the screen by the PLOTGIN instruction. The 
user should position the cursor and enter a character. When 
the character is received, the cursor position is converted 
to the plot coordinates as specified at PCB, and the results 
are stored at X and Y. The next few instructions print out the 
results of this action and ask if the user wishes to end the 
program. 



/"" "n 
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PRINT 


NOGEN 


GTEST 


PROGRAM 


START 


START 


EQU 


* 




PRINTEXT 


'GRAPHICS TEST PROGRAM P 




READTEXT 


TEXT1 




CONCAT 


TEXT1, ESC, RESET 




CONCAT 


TEXT1,FF 




PRINTEXT 


TEXTl,XLATE=NO 




STIMER 


1000, WAIT 




CONCAT 


TEXT1,GS, RESET 




SCREEN 


TEXT 1,520, 30 0,CONCAT=YES 




CONCAT 


TEXT1,US 




PRINTEXT 


TEXT1,XLATE=N0 




PRINTEXT 


TEXT3 




YTPLOT 


YDATA, XI, PCB, NPTS, 1 




XYPLOT 


YAXISX, YAXISY, PCB, TWO 




XYPLOT 


XAXISX,XAXISY,PCB,TWO 




PLOTGIN 


X,Y, CHAR, PCB 




PRINTEXT 


TEXT4 




PRINTEXT 


CHAR,XLATE=NO 




PRINTEXT 


TEXT5 




PRINTNUM 


X,2 




QUESTION 


TEXT6,NO=START 




PROGSTOP 




TEXT1 


TEXT 


LENGTH=30 


TEXT3 


TEXT 


f X-AXIS LABEL' 


TEXT4 


TEXT 


'3CHARACTER STRUCK WAS • 


TEXT5 


TEXT 


T 3X,Y COORDINATES = f 


TEXT6 


TEXT 


'SEND PROG (Y/N)? ' 




DATA 


X , 0201» 


CHAR 


DATA 


F'O' 


YDATA 


DATA 


F'O' 




DATA 


F'i' 




DATA 


F f 0' 




DATA 


F f 2 t 




DATA 


F f f 




DATA 


F'I' 




DATA 


F i_2» 




DATA 


F'-l" 


XI 


DATA 


F f 0' 


NPTS 


DATA 


F'8' 


YAXISX 


DATA 


2F'0 f 


YAXISY 


DATA 


F f -5 f 



PRESS ENTER 3 
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DATA 


F T 5' 


XAXISX 


DATA 


F f f 




DATA 


F'lO 1 


XAXISY 


DATA 


2F f 0» 


TNO 


DATA 


F'2 f 


PCB 


DATA 


F f 500' 




DATA 


F f 1000' 




DATA 


F'O' 




DATA 


F'lO* 




DATA 


F'lOO 1 




DATA 


F^OO' 




DATA 


F »_ 5 t 




DATA 


F'5 T 


X 


DATA 


F'O f 


Y 


DATA 

ENDPROG 

END 


F'O f 



\s 




\ = _y 



Figure 19. Graphic Program Output: This 
result of the preceding program 



figure shows the 
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EXAMPLE 13: FORMAT AND DISPLAY TRACE DATA 



This program formats and displays the contents of the soft- 
ware trace table. The first entry displayed is the one that 
Mas most recently entered. The user is requested to enter 
the hexadecimal address of the trace table. Sample output is 
shown following the source code. 

$FORMAT PROGRAM START 
START EQU * 

PRINTEXT 'ENTER CIRCBUFF ENTRY POINT: ',LINE=0 
GETVALUE CI RENTRY , MODE=HEX 

MOVE #1,CIRENTRY #1 = ACTRACE TBL) 

PRINTEXT 'MACHINE/PROGRAM CHECK STATUS REPORT ', L INE = 
PRINTEXT SKIP=3 
PRINTEXT 'SINCE IPL f 
MOVE CIRCNT, ( +$CI RCNT , #1 ) 
PRINTNUM CIRCNT,TYPE=S,FORMAT=(5,0, I) 
PRINTEXT f STATUS ENTRIES HAVE BEEN RECORDED' 
PRINTEXT SKIP=2 

MOVE #2, C+$CIRSTR,#1) #2 = ACFIRST ENTRY) 

SUB (+$CIREND,#1),#2,RESULT=BYTESIZE 
DIVIDE BYTESIZE, ( +$CIRESIZ , #1 ) , RESU LT=ENTRYCNT 
IF (CIRCNT, NE,0) IF THERE WERE ENTRIES 
PRINTEXT HEADING 
PRINTEXT SKIP=2 

MOVE #2, (+$CIRIN,tl) #2 = ACNEXT ENTRY) 
DO ENTRYCNT, TIMES 

SUB #2, (+$CIRESIZ,#1) #2 = ACPREV ENTRY) 
IF #2,LT, (+$CIRSTR,#1) 

MULT C+$CIRESIZ,#1), ENTRYCNT, 

RESULT=NUMBER 
SUB NUMBER, C +$CI RESIZ , #1 ) 
ADD (+$CIRSTR,#1) , NUMBER , RESU LT=#2 
ENDIF 
IF (+$CIRPSW,#2),EQ,0 

IF C(+$CIRLSB,#2),EQ,0),GOTO,FINISH 
ENDIF 

MOVE NUMBER, ( +SCIRSTAT , #2 ) 
PRINTNUM NUMBER, MODE=HEX ST VAR/EAK 
PRINTNUM (+$CIRTCBA,#2),MODE=HEX A(TCB) 
PRINTNUM C+$CIRPSW,#2) ,MODE=HEX PSW 
PRINTNUM C+$CIRSAR,#2) ,MODE=HEX SAR 
PRINTNUM (+$CIRLSB,#2),ll,MODE=HEX LSB 
PRINTEXT SKIP=1 
ENDDO 

GOTO FINISH 
ENDIF 

PRINTEXT 'NO ENTRIES TO DUMP' 
FINISH EQU * 
PROGSTOP 
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BYTESIZE 


DATA 


F f 0» 


ENTRYCNT 


DATA 


F'O' 


LOCATION 


DATA 


F'O' 


NUMBER 


DATA 


F'O" 


CIRENTRY 


DATA 


F'O' 


CIRCNT 


DATA 


F f 0' 


HEADING 


TEXT 


'S/EAK TCBA 




3 


4 5 6 7' 


SCIRSTR 


EQU 





$CIRIN 


EQU 


$CIRSTR+2 


$CIREND 


EQU 


$CIRIN+2 


SCIRCNT 


EQU 


$CIREND+2 


$CIRESIZ 


EQU 


$CIRCNT+2 


$CIRESTR 


EQU 


$CIRESIZ+2 


SCIRSTAT 


EQU 





SCIREAK 


EQU 


$CIRSTAT+1 


$CIRTCBA 


EQU 


$CIRSTAT+2 


SCIRPSW 


EQU 


$CIRTCBA+2 


$CIRSAR 


EQU 


$CIRPSW+2 


$CIRLSB 


EQU 

ENDPROG 

END 


$CIRSAR+2 



SIZE OF TRACE TABLE ENTRY SPACE 

# OF ENTRIES IN TABLE FOR DISPLAY 
LOCATION POINTER 
NUMERIC WORK WORD V/' 
TRACE TABLE ENTRY POINT 

# OF ENTRIES IN BUFFER 
PSW SAR IAR AKR LSR 1 2 X 
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ENTER CIRCBUFF ENTRY POINTS 62EE 



MACHINE/PROGRAM CHECK STATUS REPORT 



SINCE I PL 10 STATUS ENTRIES HAVE BEEN RECORDED 

i/EAK TCBA PSW SAR JAR AKR LSR 12 3 4 5 6 7 

0100 0138 8002 6031 1E6A 0000 88D0 6C30 6B7E 6038 6C31 6032 005C 00B8 0000 
0100 0138 8002 6031 1E6A 0000 88D0 6C30 6B7E 6C38 6C31 6C32 005C 00B8 0000 



0100 0852 0802 0000 0000 0000 88D0 6E30 6E54 7352 6DFA 6E58 



J 01 



004* 



0100 0138 8002 6031 1E6A 0000 88D0 6030 6B7E 6038 6C31 6032 005C 00B8 000< 



0100 0138 8002 6C31 1E6A 0000 88D0 6030 6B7E 6038 603 
0100 0852 0802 0000 0000 0000 88D0 6E30 6E54 7352 6DF 
0100 0138 8002 6031 1E6A 0000 88D0 6030 6B7E 6C38 6C3 
0100 0138 8002 6C31 1E6A 0000 88D0 6030 6B7E 6038 603 



^032 0050 00B8 0000 
A 6E58 8023 0046 0000 
1 6032 0050 00B8 QOOO 
1 6C32 0050 00B8 0000 



Figure 20. Format and Display Trace Data: This figure 
the result of the preceding program. 



shows 
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EXAMPLE 14: USE OF INDEXED ACCESS METHOD 



This program gives an example for each of the Indexed Access 
Method function calls. The indexed data set is opened first 
in LOAD mode and ten base records are loaded followed by a 
DISCONNECT. Next the same data set is opened for processing. 
A GET request is performed for the first record whose key is 
greater than 'JONES PW T . Two more records are retrieved 
sequentially and then the ENDSEQ call releases the file from 
sequential mode. A record is then retrieved directly by key 
and updated. Another record is retrieved sequentially and 
deleted. A new record is inserted and another one is deleted 
by their unique keys. Finally* an example of extracting 
information from the file control block is shown. Upon suc- 
cessful completion the message "Verification Complete" will 
be displayed upon the console. This program requires that an 
Indexed Access Method data set has been defined with the 
$IAMUT1 utility according to the following specifications: 

BASEREC 10 

BLKSIZE 256 

RECSIZE 80 

KEYSIZE 28 

KEYPOS 1 

FREEREC 1 

FREEBLK 10 

RSVBLK s 



RSVIX 

FPOOL 

DELTHR 



w 
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SAMPLE 

START 

* 



PROGRAM START, DS=??,ERRXIT=TEECB 
EQU * 



ENQT 

PRINTEXT LOGON, LINE=0 PRINT LOGON MESSAGE 

DEQT 

OPEN the Indexed Access Method data set for loading 

CALL I AM, (LOAD), I ACB, (DS1), (OPENTAB), (SHARE) 

LOAD the Indexed Access Method data set 

MOVEA POINTER, RECORD1 POINTER <== A(RECORDl) 

DO RECNUM, TIMES 

CALL I AM, (PUT) ,IACB, (*) , P4= POINTER 

ADD POINTER, 80 POINT TO NEXT RECORD 

ENDDO 

* GET OUT OF LOAD MODE 

CALL I AM, (DISCONN) ,IACB 
EJECT 
* 

* OPEN the indexed file for processing 
* 

CALL I AM, ( PROCESS), I ACB, (DSD, (OPENTAB), (SHARE) 
* 
* 

* Perform a direct retrieval of the first record whose key is 

* greater than f JONES PN f . The key field will be modified to 

* reflect the key of the record retrieved. 
* 

CALL I AM, (GET), I ACB, (BUFF), (KEY3), (GT) 

MOVE RTCODE, SAMPLE 

IF (SAMPLE,NE,-1) ,GOTO,IAMERR 



Perform a sequential retrieval of the first two records 
whose keys are greater than or equal to 'JONES PW f 

CALL I AM, (GETSEQ),IACB, (BUFF),(KEY1),(GE) 

MOVE RTCODE, SAMPLE 

IF (SAMPLE,NE,-l),GOTO,IAMERR 

CALL IAM, (GETSEQ) , IACB, (BUFF) 

MOVE RTCODE, SAMPLE 

IF (SAMPLE,NE,-1) ,GOTO,IAMERR 

CALL IAM, (ENDSEQ) , IACB, (BUFF) END SEQUENTIAL MODE 
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Update the record whose key is 'JONES PW by a 
d i rect update 

CALL I AM, (GET), IACB, (BUFF),(KEY1), (UPEQ) 

MOVE RTCODE, SAMPLE 

IF (SAMPLE,NE,-l),GOTO,IAMERR 

Make the desired modifications to the record now in BUFFER 

MOVE BUFF+30,0 

CALL I AM, (PUTUP),IACB, (BUFF) 

Delete the record whose key is 'JONES PW by a 
sequential update 

CALL I AM, (GETSEQ) ,IACB, ( BUFF ) , ( KEY1 ) , (UPEQ) 

MOVE RTCODE, SAMPLE 

IF (SAMPLE,NE,-l),GOTO,IAMERR 

CALL I AM, (PUTDE) ,IACB, (BUFF) 

CALL IAM,(ENDSEQ),IACB END SEQUENTIAL MODE 

Insert a new record with a key of 'MATHIS GR' 

CALL I AM, (PUT),IACB, (NEWREC) 

Delete the record whose key is 'LANG LK» 

CALL IAM, (DELETE), IACB, (KEY2) 

MOVE RTCODE, SAMPLE 

IF (SAMPLE,NE,-l),GOTO,IAMERR 

EJECT 

Extract the file control block into the extract buffer 

CALL IAM, (EXTRACT) , IACB, ( EXTBUF ),( FCBSIZE ), 1 28 

MOVEA #1, EXTBUF #1 <— A(EXTRACT BUFFER) 

MOVE FLAGBYTE, (0,#1) ,BYTE OBTAIN FCB FLAG BYTE 

SPACE 5 

Write verification complete message to the operator 

ENQT 



PRINTEXT SKIP=1 

PRINTEXT VERIF,SPACES=0 
DEQT 

GOTO FINISH JUMP AROUND ERROR ROUTINES 
SYSERR EQU * GETS CONTROL ON SYSIPGM CHECK 



vy 



v_V 
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task error exit is specified in an Indexed 
Method program, you can release all active 



When a 
Access 
record 
the fi 
file that i s open . 



and block level locks as well as disconnect 
le itself issuing the T DISCONN T call for eacl 



IAMERR 



GOTO 

EJEC 

EQU 

MOVE 
ENQT 



FINISH 



RTCODE, SAMPLE 



GETS CONTROL UPON INDEXED 
METHOD ERRORS 



PRINTEXT SKIP=2 

PRINTEXT RTCODMSG 

PRINTNUM RTCODE, TYPE =S , FORMAT* ( 3, 0,1) 

PRINTEXT SKIP=1 

PRINTEXT ERRMSG,SPACES=0 



FINISH 



DEQT 

EQU 

CALL 

PROG 

EJEC 



IAM, (DISCONN) 
STOP 

T 



IACB 



* 

* Data definition and storage areas 

* 

RECNUM 

RTCODE 

OPENTAB 



RECORD1 

RECORD2 

REC0RD3 

RECORDS 

RECORDS 

REC0RD6 

REC0RD7 

REC0RD8 

REC0RD9 

RECORD10 

FLAGBYTE 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



F f 10 f NUMBER OF RECORDS TO LOAD 

F'O' INDEXED ACCESS METHOD RETURN CODE 
F f 0' SYSTEM RETURN CODE ADDRESS 

A(IAMERR) ERROR EXIT ROUTINE ADDRESS 



F'0 f 
CL80 
CL80 
CL80 
CL80 
CL80 
CL80 
CL80 
CL80 
CL80 
CL80 
H'O' 
H'0» 



END OF DATA ROUTINE ADDRESS 



BAKER RG f 
DAVIS EN' 
HARRIS SL 
JONES PW 
JONES TR' 
LANG LK' 
PORTER JS 
SMITH AR f 
SMITH GA T 
THOMAS SN 



FCB FLAG BYTE 



o 
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NEWREC 
BUFF 



KEY1 



KEY2 



KEY3 

IACB 

EXTBUF 

LOGON 

VERIF 

ERRMSG 

RTCODMSG 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 
EJECT 



CL80'MATHIS GR 

CL80' f 

X'lC 

X'OO' 

CL28' 

X'lC 

X'OO' 

CL28' 

X' 1C 

X 1 00 f 

CL28' 

F'O' 

64F'0' 

'INSTALLATION 

'VERIFICATION 

'VERIFICATION 



JONES PN 



LANG LK 



JONES PW 



TOTAL LENGTH OF KEY 
USE ALL OF THE KEY 



IACB 
HERE 



PUT HERE 
BY EXTRACT 



PROGRAM ACTIVE' 



>\ 



ADDR OF 

FCB PUT 
VERFICATION 
COMPLETE' 
INCOMPLETE DUE TO BAD RETURN CODES' 



'INDEXED ACCESS METHOD RETURN CODE 



* The following storage is used by task error exit handling 

* 

TEECB 



* Hardwa 

* hardwa 
HSA 

HSALSB 



EQU * 
DATA F'2' 
DATA A(SYSERR) 
DATA A(HSA) 
re status area, 
re upon system or 
EQU * 
DATA F'O' 
EQU * 



TASK ERROR EXIT CONTROL BLOCK 
# OF DATA WORDS THAT FOLLOW 
ADDRESS OF EXIT ROUTINE 
ADDRESS OF HARDWARE STATUS AREA 
This storage uill be filled in by 
program check interrupt 

PROCESSOR STATUS WORD 
LEVEL STATUS BLOCK: 






DATA 

DATA 

DATA 

DATA 

COPY 

COPY 

ENDPROG 

END 



F'O' 

F'O' 

F'O' 

8F'0' 

IAMEQU 

FCBEQU 



ADDRESS KEY REGISTER 
INSTRUCTION ADDR REGISTER 
LEVEL STATUS REGISTER 
GENERAL REGISTERS 0-7 



\_jr 
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EXAMPLE 15: WRITE DATA TO TAPE DATA SET 



This example generates a 300 byte record using a DATA state- 
ment. The record consists of the word TEST* repeated 75 
times. The record is then written to a tape data set that is 
named by you when prompted by the PROGRAM statement. Any 
tape related error condition will print a return code (RC) 
using the PRINTEXT statement at location ERR. If no errors 
occur* after 300 records have been written the tape data set 
will be closed* the tape will be rewound and the tape drive 
will be placed in an off-line status by the CONTROL statement 
at locat i on ENDIT. 



TEST 
x 
* 
START 

* 

* 



x 
x 
ENDIT 

x 

x 

x 
x 
ERR 

x 

* 

x 

x 
x 

BUFF 
x 



PROGRAM 



EQU x 
PRINTEXT 



DO 

WRITE 

ENDDO 



EQU 
CONTROL 

PRINTEXT 

PROGSTOP 

EQU x 
PRINTEXT 

PRINTNUM 

PRINTEXT 

GOTO 

DATA 

ENDPROG 
END 



START, DS=(??) 



'3BEGIN TEST PR0GRAM3' 



300, TIMES 

DS1,BUFF,1,30 0,ERROR=ERR,WAIT=YES 



DSl,CLSOFF 

'3 END TEST PROGRAMS' 



'31/0 ERROR - RC= f 

DS1 

'TEST PROGRAM ENDINGS' 

ENDIT 

75CTEST' 
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EXAMPLE 16: PROCESSING STANDARD LABELS USING BLP 



This example reads and processes the records of standard 
labels prior to reading and processing the data records in 
the tape data set. The tape is mounted on a tape drive whose 
configurated TAPEID is TAPE01. The tape drive has been 
assigned the attribute of BLP. 

The first instruction reads the volume label (V0L1), whose 
length is 80 bytes, into a buffer labeled BUFFER, where it 
can be processed by your application program. The same buffer 
is used throughout the program. The second read instruction 
reads the first header label (HDR1), whose length is 80 
bytes* into the buffer for processing by your application 
program. A CONTROL command (FSF) is then issued to space the 
tape past any additional header labels by searching for a 
tape mark. The program now reads data records from the tape* 
one record at a time* into the buffer for processing by your 
program. The data records are each 50 bytes long. When the 
last data record has been read and processed the 80 byte 
trailer record (EOF1) is read into the buffer and can be 
processed by your program. 

If any errors are detected* while reading labels* the error 
routine named ERR1 is given control and the message LABEL 
ERROR - RC= is printed and the associated return code is 
printed to help you determine what type of error was encount- 
ered. If an error is detected during the reading of data 
records* the error routine named ERR2 is given control and 
the message READ ERROR - RC= is printed along with the 
return code which indicates the type of error encountered. 



V 



\k _& 



SLPROC PROGRAM START , DS= (( XYZ , TAPEO 1) ) 
START EQU * 



PROCESS THE HEADER LABEL GROUP 

READ DS1,BUFFER,1,80,ERROR=ERR1 

PROCESS THE VOLUME 1 RECORD / 

READ DS1, BUFFER, 1,80, ERROR =ERR1 

PROCESS THE HEADER 1 RECORD 
CONTROL DS1,FSF 



Read the volume 
1 label (V0L1) 



Read the header 
label (HDR1) 



Space the tape past 
any other label 
records and the 
tape mark 
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* 

* PROCESS THE DATA ON THE TAPE 

* 

LOOP 



EQU 
READ 



DS1,BUFFER>1,50,ERROR=ERR2,END=ALLDONE 



PROCESS THE TAPE DATA RECORD JUST READ INTO BUFFER. 
YOU MAY WISH TO: 

PRINT IT 

NRITE IT TO DISK OR DISKETTE 

DISPLAY IT ON A TERMINAL 

USE IT IN CALCULATIONS 



GOTO 



LOOP 



* 
* 
* 
* 
* 

* 
* 

* 

ALLDONE EQU * 

* 

* PROCESS THE TRAILER LABEL GROUP 
* 

READ DS1,BUFFER,1,80,ERROR=ERR1 
* 

* PROCESS THE END OF FILE (EOF1) RECORD 
x 

ENDIT EQU * 

PROGSTOP 
x 
ERR1 EQU * 

PRINTEXT '3ILABEL ERROR - RC= • 

PRINTNUM DS1 

GOTO ENDIT 

EQU * 

PRINTEXT '3READ ERROR - RC= * 

PRINTNUM DS1 

QUESTION 'DO YOU WANT TO CONTINUE? ', 
YES=LOOP,NO=ENDIT 



Return to LOOP to 
read the next data 
record 



ERR2 



x 
BUFFER 



DATA 



40F f f 



ENDPROG 
END 
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EXAMPLE 17: WRITE A DATA SET TO A SL TAPE THEN READ IT 

This example uses a standard labeled (SL) tape to write a 
data set. The tape data set name is MYDATA and the volume 
serial number is 1004. The tape record must be created prior 
to the WRITE statement by moving a data record into BUFFER. 
The records are assumed to be 500 bytes long; longer records 
would be truncated to 500 bytes, shorter records would be 
padded to 500 bytes. After writing the data set, the tape is 
rewound. The tape data set is then reopened by a CALL to 
DSOPEN and the records are read back into storage at location 
BUFFER. 

WRTAPE PROGRAM START , DS= (( MYDATA , 1 004 ) ) 

START EQU * 

* 

DO 100, TIMES Write 100 records to tape 
* 

* YOU MUST CREATE THE TAPE RECORD HERE; THE RECORD TO 

* BE WRITTEN TO TAPE MUST BE AT LOCATION BUFFER FOR 

* THIS EXAMPLE. 
* 

WRITE DS 1, BUFFER, 1,50 0, ERROR =ERR1 
ENDDO 
DONE1 EQU * 

CONTROL DS1,CLSRU 

* /-■ x 



* SET THE DSOPEN ERROR EXITS 
* 

MOVEA $DSNFND,ERRDSN 
MOVE A $DSBIODA,ERRIODA 
MOVEA $DSBVOL,ERRVOL 
MOVEA $DSIOERR,ERRIO 
* 

* OPEN THE DATA SET 

CALL DSOPEN, (DSD Reopen the data set 

* i nd i cated in the 

* PROGRAM statement 
* 

* READ AND PROCESS THE RECORDS JUST CREATED AND WRITTEN 

* TO THE TAPE DATA SET NAMED MYDATA 
* 

LOOP EQU * 

READ DS1, BUFFER, 1 , 500 , ERR0R=ERR2 , END=D0NE2 , 
WAIT=YES 
* 

* HERE THE RECORDS MUST BE MOVED OUT OF LOCATION BUFFER 

* BY YOUR PROGRAM, TO PREVENT THEM BEING OVER WRITTEN 

* BY THE NEXT RECORD FROM TAPE. 
* 

GOTO LOOP 
D0NE2 EQU * 

CONTROL DS1,CLS0FF 
PROGSTOP 
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L, '<_y 



O 



ERR1 



o 



* 
ERR2 



* 
BUFFER 



EQU * 
PRINTEXT 
PRINTNUM 
QUESTION 



EQU * 
PRINTEXT 
PRINTNUM 
QUESTION 



'3WRITE ERROR - RC= ? 

DS1 
'DO YOU WANT TO CONTINUE? ' 

YES=START,NO=DONEl 



3READ ERROR - RC= ' 

DS1 

3D0 YOU WANT TO CONTINUE? 

YES=LOOP,NO=DONE2 



DATA 



250F'0 f 



Define a buffer of 500 
bytes and initialize 
i t to zeros 



* DSOPEN ERROR EXITS, BUFFER AREA, AND COPY CODE 

* 

ERRDSN 



EQU 

MOVEA 

GOTO 



MSGX,MSG1 
ERRMSG 



„y 



ERRIODA 



x 
ERRVOL 



* 
ERRIO 

* 
ERRMSG 



MSG1 
MSG2 
MSG3 
MSG4 



DISKBUFR 

x 

x 

x 



EQU x 

MOVEA MSGX,MSG2 

GOTO ERRMSG 

EQU x 

MOVEA MSGX,MSG3 

GOTO ERRMSG 



EQU 
MOVEA 

EQU 

PRINTEXT 

PRINTEXT 

PRINTEXT 

GOTO 

TEXT 

TEXT 

TEXT 

TEXT 

COPY 

COPY 

COPY 

COPY 

DATA 



MSGX,MSG$ 



'3DS0PEN ERROR - ' 

MSG1,P1=MSGX 

SKIP=1 

DONE2 

'DATA SET NOT FOUND 1 

'VOLUME NOT FOUND' 

'I/O ERROR' 

'DATA SET NOT FOUND' 

DSOPEN 

DSCBEQU 

DDBEQU 

PROGEQU 

128F'0' 



Define a buffer area of 
256 bytes and initialize 
to zeros 



ENDPROG 
END 
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EXAMPLE 18: INITIALIZE AND WRITE A NL TAPE 

This example uses the Utilities* Operator commands* and EDL 
instructions to initialize a tape and write a data set to the 
tape without using tape labels. 

You must mount the tape on a drive defined for NL processing. 
If the drive is not defined for NL* then use $TAPEUT1 utility 
and the subcommand CT> to change the label processing attri- 
bute to NL. The procedure for preparing the tape for use fol- 
lows and the bold type represents what you must enter from 
the keyboard : 

$L STAPEUT1 (This loads the tape utility) 

COMMAND (?) U (This selects the initialize utility) 

TAPE ADDR (1-2 HEX CHARS): £8 (Select the drive to 

be used) 

NO LABEL 1600 BPI? Y (Verifies the tape attributes) 

TAPE INITIALIZED (Tape has been initialized) 

COMMAND ? JLN (This ends the tape utility session) 



SVARYON 48 (This will vary the tape online) ^ y 

TAPE01 ONLINE (The system responds with the tape 

ID that was assigned during system 

conf i gurat i on ) 

$L PRGTAPE (System will load your program 

PRGTAPE and write the tape 
data set) 

The program writes data to the tape to create the tape data 
set defined as MYDATA. It writes one record each time the DO 
loop is executed. The records are specified to be 50 bytes 
long. The data records are taken from a location labeled 
BUFFER. If a tape I/O error is detected during the writing of 
the data set* the program branches to label ERR1. In the 
error routine* ERR1* the return code indicating the type of 
error encountered is displalyed and you are requested to 
respond whether you wish to resume the WRITE operation or 
not. If you reply YES on the keyboard* the DO loop will be 
resumed. If you reply NO, the program branches to the ending 
routine labeled ALLDONE. 
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PRGTAPE PROGRAM START , DS = (( MYDATA , TAPEO 1 ) ) 
START EQU * 

DO 100, TIMES 



Create or build the tape record so that the data 
you wish to write to tape is at location BUFFER. 
For example you may: 

- read from disk or diskette to BUFFER 

- read from a terminal to BUFFER 

- move records from a calculation in storage 
to BUFFER 



WRITE 
ENDDO 



DS 1, BUFFER,!, 50, ERROR=ERRl 



ALLDONE 



* 
ERR1 



EQU * 

CONTROL DS1,CLS0FF 

PROGSTOP 

EQU * 

PRINTEXT '3WRITE ERROR - RC= f 

PRINTNUM DS1 



,y 



* 

BUFFER 



QUESTION f 3D0 YOU WISH TO RESUME? ', YES=START , N0=ALLD0NE 



DATA 



COPY 



25F f 0» 



TDBEQU 



Creates the area from 
which the source data 
records will be written 

Requ i red for all 
CONTROL requests 



ENDPROG 
END 
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EXAMPLE 19: READ THE THIRD FILE ON TAPE 



This example shows the procedure for setting up an existing 
tape to read the third file whose data set name is MYDATA. The 
third file will be read one record at a time. The records are 
expected to be 50 bytes long. The records could be any length 
but the READ statement will only read 50 bytes and place them 
into location BUFFER. If the records in the third file are 
not 50 bytes in length longer records will be truncated to 
the right and shorter records will be padded on the right to 
fill the 50 word buffer. 

When a tape mark is read* at the end of the third file* the 
tape will be close and placed offline by the CONTROL state- 
ment at label all done. 

If a tape I/O error occurs while reading records from the 
file* the return code will be printed on the terminal and you 
will be prompted with a question. If you reply YES* the pro- 
gram will attempt to continue reading records from the third 
file. If you reply NO* the program will branch to label 
ALLDONE and the program will close the data set and place the 
tape offline. 

The procedure for preparing the tape for use follows and the 
bold type represents what you must enter from the keyboard: 



$VARY0N 48*3 (This will vary the tape onli.ne) 

TAPE01 ONLINE (The system responds with the tape 

ID that was assigned during system 

conf i gurat i on ) 

$L RDTHIRD (System will load your program 

RDTHIRD and read the tape 
data set ) 



The EDL program follows: 



c 



J 
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RDTHIRD PROGRAM START , DO C ( MYDATA , 1 001 04 ) ) 
START EQU * 

READ DS1,BUFFER,1,50,END=ALLDONE,ERROR=ERR1 



Process the tape record. For example* you may? 

- PRINT it 

- WRITE it to disk, or diskette 

- DISPLAY it on a terminal 

- Use it in calculations 



x 

* 

* 

x 

x 

x 

x 

x 

x 

x 

GOTO 

x 

ALLDONE 



ERR1 



The record must be moved from BUFFER to prevent 
the next record from overlaying it. 



x 
BUFFER 



START 

EQU 

CONTROL 

PROGSTOP 



DS1,CLS0FF 



RC = 



EQU x 

PRINTEXT '3READ ERROR 
PRINTNUM DS1 

QUESTION »3 DO YOU WISH TO CONTINUE?*, 
YES=START,NO= ALLDONE 



DATA 
COPY 
ENDPROG 
END 



ZSF'O' 
TDBEQU 
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APPENDIX A: INSTRUCTION AND STATEMENT LIST 



EVENT DRIVEN LANGUAGE INSTRUCTIONS 

The following syntax conventions are used for the Event 
Driven Language descriptions. 

Superscript indicates indexable operand 

Brackets [ ] indicate optional operands 

Operands not enclosed in brackets are required 

Underscored items are default values 

The OR symbol I indicates mutually exclusive operands 

Instruction Operands 

ADD opndl ,opnd2° [, count 1 - 

32767 11 ,RESULT=° opndl I 
variable][,PREC=S|D][,Pl=,P2=,P3=J 

ADDV opndl ,opnd2° , count 1 - 

327671 ,RESULT=° opndl I 
variableHPREC = S|D][,Pl = ,P2=,P3=] 

AND opndl , opnd2°[ , count (JL- 

32 7 6 7,BYTE|W0!P_|DW0RD) J 

[ ,RESULT=° opndl I var | vector ][ , P1=,P2=,P3=] 

ATTACH tasknamel , priority 1 - 51 I 2£6 J [ , CODE = code 
wordl z!J[ ,P1=,P2=,P3=] 

ATTNLIST (ccl,locl[,...,ccn,locn])[ , SCOPE =JLOCAL I GLOBAL ] 

BSCCLOSE bsciocb ! , ERROR = label ][ , P1=,P2= 1 

BSCIOCB lineaddrl ,bufferl addr , lengthl ] [ , buf f er 2 
addr , 
length2 H , pollseq H , polls i ze ][ ,P1 = , . . . , P7= 1 

BSCLINE [ADDRESS = - FF | 9 J [ , TYPE = PJ | SM I SA I MC | MT J 

[ ,RETRIES = 6| value ][ ,MC = NO| YES ][ ,END = NO| YES] 

BSCOPEN bsciocb°[, ERROR =label][,Pl=,P2=] 

BSCREAD type C|D|E|I|P|Q|R|U,bsciocb°[,ERROR=label] 
[ ,END = label ][ , TIMEOUT = YES | NO ] [ ,P1 = ,P2=,P3=] 
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BSCWRITE 



BUFFER 
CALL 

CALLFORT 
CONCAT 

CONTROL 

CONVTB 

CONVTD 

COPY 

CSECT 

DATA 

DC 

DCB 



DEFINEQ 

DEQ 

DEQT 

DETACH 

DIVIDE 

DO 



type 

C|CV|CVX|CX,CXB|D|E|EX| I|IV|IVX|IX|IXB|Q|M| 
U|UX,bsciocb°l ,ERROR= label ][ , END = label ] 
I , CHECK = YES|NOH ,P1=,P2=,P3=J 

count 1 - 32767[ JL W0RJJ|BYTE 11 ,INDEX=name ] 

name! , par 1 , . . . , par 5 ] [ , Pl = , . . . » P6= 1 

name [ , (al » a 2 , . . . , an , ) ] I » P= (pi , p2 » . . ,pn) ] 

textl,text2l ,RESETll ,REPEAT=1 - 32767 1 
l,Pl=,P2=l 

DSx,BSF |FSF|BSR|FSR|WTM|REW|ROFF|OFF|CLSRU|CLSOFF 
[, count I - 3276711 ,END=label 1 
[,ERROR=labelll , WAIT=YES I NO 1 [ , P3= 1 

opndl°,opnd2°[,PREC = S|D|F|Lll , FORMAT= ( w , d , t ) I 
(6,0,D 11 ,P1=,P2=1 

opndl°,opnd2°[,PREC=,S|D|F|Lll , FORMAT* ( w , d , t ) | 
(6,0,1) H ,P1=,P2=1 

symbol 

(label required) 

[dupl type C|X|B|F|H|D|E|L|A value 

[dupl type C|X|B|F |H|D|E| L| A value 

[ ,PCI = NOlYESll ,IOTYPE = OUTPUT l INPUT 1 

I ,XD = N0| YESll ,SE = NOl YESH ,DEVMOD = hex value 1 

I ,DVPARM1 = value l+label 11 , DVPARM2 = va lue | +1 abel 1 

[,DVPARM3=value|+labelll , DVPARM4=va lue I label 1 

I ,CHAINAD=label 11 ,COUNT = - 332767 | +labe 1 1 

[ ,DATADDR = label 1 (label required) 

COUNT = valuel ,SIZE = value 1 (label required) 

resource !, code value \zX 1 1 » Pl = » P2= ] 

none 

[code valuelzJLH ,P1= 1 

opndl°,opnd2°l , count 

valuellll,RESULT=°label| 

opndl ][ , PREC = S|SSD|D|DD|DSS][ , PI = , P2= , P3= 1 

count - 

32 767° I . TIMES H ,INDEX=label 11 ,P1= 1 I 

UNTIL, statement | HH I LE, statement 



\.y 
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DSCB DS#=name,DSNAME=name[ , VOLSER=name I nul_l ] [ ,DSLEN= 

0. - maximum-direct-access-space-value j 

ECB [code valuelnl.1 (label required) 

EJECT none (label not allowed) 

ELSE none 

END none (label not allowed) 

ENDATTN none 

ENDDO none 

ENDIF none 

ENDPROG none (label not allowed) 

ENDTASK [Riposting code value]!, Pl=] 

ENQ resource ! ,BUSY=busy addr][,Pl=] 

ENQT [ name ][ ,BUSY=][ , Pl=] 

ENTRY symbo 1 1 [ , . . . ,symboln 1 

EOR opndl ° , opnd2° [, (count 1 - 

32767, BYTEINORDIDWORD) ] 
I , RESULT=°p_p_ndl| variable ] [ , PI = , P2= , P3= ] 

EQU value (label required) 

ERASE [count° = maximum l value ][ , MODE = F_IE_LD | L INE I SCREEN I 

[ , TYPE =DATA| ALL Jl ,SKIP=°0 - 
pages i ze 1 [, LINE = °0 - pagesizel current 
1 i ne ] f ,SPACES=°0 - line spaces 

EXIO idcbaddr ! , ERROR = label ][ ,P1= I 

EXOPEN devaddr,listaddr°[,ERR0R = labelH,Pl = ,P2=] 

EXTRN symboll [ , . . ,symboln ] (label not 
al lowed ) 

FADD opndl°,opnd2°[ , RESULT= °c L p_ndJL | var i able J 

[ , PREC = FJFF|DSD|SSD|SSS|DSSH , P1 = ,P2=,P3 = 1 

FDIVD opndl , opnd2°[ , RESULT = opjidJL | var i ab le 1 

[ , PREC = Ff_F|DSD|SSD|SSS|DSS ][,P1=,P2=,P3=] 

FIND character, string , length , where °,notfound 

[ , D I R = F_0RWAED I REVERSE 1[,P1 = ,P2=,P3=,P4=,P5=J 
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FINDNOT character>string >length >where°>notfound 

I ,DIR = FORWARD | REVERSE ][,P1=,P2=,P3=,P4=,P5=] 

FIRSTQ qname°,loc°l , EMPTY= ][ ,P1 = ,P2= ] 

FMULT opndl°,opnd2°l , RESULT = °0j3ndl | var i ab le ] 

[ , PREC = FFF.|DSD|SSD|SSS|DSS]l ,P1=,P2=,P3=] 

FORMAT (list), [ GET I PUT I BOTH ] 

FPCONV opndl°,opnd2°l ,COUNT=I - 32767] 

[ , PREC=£S|*| LD|DL|SF|FS]l,Pl=,P2=,P3=] 

FSUB opndl°,opnd2°[ , RESU LT = °pj2JQ_dl | var i ab le ] 

I , PREC = FJF_F |*|any combination]! ,P1=,P2=,P3=] 

GETEDIT text, ( 1 i st ) format I (format 
list)[ ,ERROR = label ] 
t ,ACTION=IJD|STG][ , SCAN = F_IXED I FREE ] [ ,SKIP = 

- pagesi ze ] [ , LINE = - pagesize] l,SPACES=0 

- linesize ][ , PR0TECT = N0J.YES ] 

GETTIME loc°[ ,DATE=NO| YESll ,P1 = ] 

GETVALUE loc ° [ , pmsg ° I labe 1 ] [ , count I - 32767|(count 
value, BYTE I WORD | DWORD ) ] 
I ,MODE = D£C|HEX][ , PROMPT = UNCOND I COND 1 

I ,FORMAT=(6,0,I) | ( w , d , f ) ] I , TYPE=S I D I F | L ] f N 

[,SKIP = °,0 - pagesi ze 11, LINE = ° cur rent 1 i ne I ^y 

- pagesize ][ ,SPACES = °0 - 
linesize 11 ,P1 = ,P2 = ,P3= ] 

GIN x,yl,char,HPl=,P2=,P3=] 

GOTO locl,Pl=] 

GOTO (Ioc0l,locl,loc2,...,loc49])l, index ][ ,P1 = ,P2= ] 

IDCB C0MMAND = READ|READ1 | READID I RSTATUS I WR ITE I WR ITE 1 I 

PREPARE|CONTROL|RESET|START|SCSS,ADDRESS=labell , 
DCB=dcb 

label ] I ,DATA = addr ][ , M0D4=mod i f i er 11 , 
LEVEL = - 31111 ,IBIT=ON|OFF ] (label 
requ i red ) 

IF statementl , GOTO, loc 1 

INTIME reltime,loct, INDEX]! , P2= ] 

IOCB Iname 1! ,PAGSIZE= 1! ,TOPM = - pagesize-1] 

l,BOTM = - pagesi ze-1 II ,LEFTM = - 
linesize-1 ] I ,RIGHTM = - 
linesize-1 ]I , SCR EEN=.ROkL | STATIC ] , [NHIST=0 

- pagesize-2] 
I , PVFLINE=NQl YES H BUFF ER= RITHTM+1 - 32767] 
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IODEF PIx,ADDRESS=00 - 

FFl ,TYPE=GROUP]| [TYPE=BIT, ] BIT=0 - 
151 ,SPECPI= I 

IODEF DOx,TYPE=GROUP|SUBGROUP,BITS=(u - 15, v 1 

- 16-u) | EXTSYNCADDRESS=00 - FF 

IODEF DIx,TYPE=GROUP|SUBGROUP,BITS=(u - 15, v 1 

- 16-u) | EXTSYNCADDRESS=00 - FF 

IODEF AOx,ADDRESS=00 - FF,POINT=0 - 1 

IODEF AIx,ADDRESS=00 - FF,POINT=0 - 7 for relay, 
0-15 for ss,RANGE=5V|500MV|200MV| 100MVI 
50MV|20MV| 10MV,ZCOR=NO|YES 

IOR opndl ,opnd2° [, count 1 - 

32767, BYTEIWORDIDNORD] [ , RESULT^ ° opnd 1 I 
variable ][ ,P1=,P2=,P3= ] 

LASTQ qname°,loc°[ , EMPTY= labe 1 II ,P1=,P2=] 

LOAD prog name[[»parm 

name ][ ,DS=(dsnamel, . . . ,dsname9) ] 

I , EVENT = event name It , LOGMSG=YES | NO ] [ , PART=1 

- 8] [ ,ERROR = label ][ ,STG = - 6553511, P2=] 

LOAD PGMxU,parm name H , DS= ( DSx ,...)][ , 

EVENT=event name ] I , LOGMSG = YES I NO ] [ , 
ERROR=label ][ ,P2=] 

MOVE opndl , opnd2°[ , count 1 - 

3276 7,BYTE|WORD|DWORD J 
[ ,FKEY= H ,TKEY= ] [ , PI = , P2= , P3= ] 

MOVEA opndl°,opnd2[ ,P1=,P2= ] 

MULTIPLY opndl , opnd2°[ , count 1 - 32767] 

[ , RESULT* oj2iidJL I variable, ][ , PREC=S|D] 
I ,P1=,P2=,P3= ] 

NEXTQ qname°,loc°l , FUL L= ] [ , Pl = , P2= 1 

NOTE DSx,loc°[ ,P2= ] 

PLOTCB 8 data statements with explicit values 

PLOTGIN x,yl ,char ],pcbl , Pl = , P2 = , P3= , P4= ] 

POINT DSx,relrecno°[ ,P2=] 

POST event !, code zl ~ FF[,P1=,P2=] 

PRINDATE none 
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PRINT [ON I OFF ][ , GENlNQGENH , DATA I NOD ATA 1 

(label not allowed) 

PRINTEXT msg° |[ ,SKIP=°0 - pagesizell [,LINE=° 

current 1 i ne ] I I SPACES = ° - line 
length-1 ][ , XLATE = ° .YES I NO J 
[ ,MODE= ][ ,PROTECT = NOl YES H , Pl = ] 

PRINTIME none 

PRINTNUM loc°[»count 1 - 3276 7 , WO_R_D I DWORD ] l,nline=l 

- line length-1 1 [ nspace=_ll i ne length-2] 
[ , MODE = DEC | HEX] [FORM AT=( 6,0, _I) | ( w , d , f ) ] 

[ ,TYPE=S|D|F|L] 

[ ,SKIP=°0.lpagesize-l ][ , LINE = ° cur rent line l 
pagesize-l][SPACES = °0. 1 inesi ze-1 1 
PROTECT=NQ|YES][ , Pl = , . . ,P4= ] 

PROGRAM start 1 abe 1 [ , pr i or i ty=JJ50 | 1 - 
510 ][ ,EVENT = name ] 

I ,DS=(dsnamel , . . ,dsname9) ][ , PARM = 0. - 368] 
[ ,PGMS=(pgmnamel, . . ,pgmname9) ] 

[TERMERR = label,Jt , F LOAT=NO | YES J I MAIN = YJE_S I NO ] 
[ ,ERRXIT=label ][STG=0 - 

65535 ][ ,WXTRN = YES|N0 I (taskname required 
for label ) 

PROGSTOP [code zl - FF ] [ , LOGMSG = YES | NO ] [ , PI = ] /"' > 

PUTEDIT text, (list), for mat I (format 

list), [ERR0R = label ] [ , ACTI0N= J_0 I G ] [ , SKIP=0 

- pagesize-1] [,LINE=1 - 

pagesi ze-1 ][ ,SPACES = - 1 i ne length-1 ] 
[ ,PROTECT=NO| YES ] 

QCB [code zlL ~ 99 J (label required) 

QUESTION pmsg YES= labe 1 | NO= labe 1 [, SK IP= ° - 
pagesi ze-1 ] I ,LINE = °1 - 
pagesize-1 ][ ,SPACES = °1 - 
linelength-1 ][ ,P1= ] 

RDCURSOR 1 i ne°name , i ndent °name 

READ DSx,loc°[ , count I - 32767° [ , re 1 r ecno ° 0. - 

max records-1 Iblksize 2_5_6 I [ 18 - 32767JJ 
[ ,END=label ][,ERROR = label][ , WAIT= YES 1 NO [ ,P2=,P3=,P4=] 

READTEXT loc ° [ , pmsg ° ] [ , PR0MPT = UNC0ND 1 COND I 

[ ,ECHO = NO][ ,TYPE=DAJA|MODDATA| ALL | MODAL L ] 

[ , MODE = WORD | LINE][,XLATE=NO][,SKIP=°0 - 

pagesize-1] [ , L INE ° = cur r ent line - bottom 

line-1] [,SPACES=°0 - line length-1] j^ 

o 
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c 



RESET event or for PI 1 - 991, Pl=] 

RETURN none 

SBIO AIx! [ ,loc° ],op3 label I INDEX]! ,SEQ = NO| YES] 

I ,P1=,P2=,P3= ] 

SBIO AOx! ,loc° 11 INDEX ][ , EOB = label ]I ,P1 = ,P2= ] 

SBIO DIxl,loc°][ INDEX]! ,EOB= label ][ ERROR* label ] 

I ,P1=,P2= ] 

SBIO DIx! [ ,loc° ][ ,BITS=(u - 15, v n)][, 

ERROR = label ][ ,P1=,P2= ] 

SBIO DQx! I ,loc° ][ ,BITS=(u - 15, v - n)][, 

ERROR = label ]ILSB = - H ] [ , Pl = , P2= ] 

SBIO DOxl ,loc° ][ ,op3 label I INDEX]! , 

ERROR* label ][,P1=,P2=,P3=,] 

SBIO DOx, ( PULSE, ON | OFF) 

SCREEN text,x,yl , CONCAT=NQl YES ] I , ENHGR=NO | YES ] 
t ,P1=,P2=,P3=] 

SHIFTL opndl°,opnd2°l , count I - 32767 { , BYTE I WORD I 
DWORD] ][ ,RESULT=° opndl I label ]!,P1=,P2=,P3=] 

SHIFTR opndl°,opnd2°l , count 1 - 32767! , BYTE | WORD I 
DWORD] ]l ,RESULT = ° opndl I label ]l,Pl = ,P2=,P3=] 

SPACE lvalue JL - pagesize-1] (label not allowed) 

SPECPIRT 

SQRT rsq°, root, rem! ,P1 = ,P2=,P3= ] 

STATUS index, key! , length - 256 ] [ , Pl= , P2= , P3= ] 
(label required) 

STIMER count I - 32767 !, WAIT ]!, Pl= ] 

SUBROUT name! ,par 1 , . . . ,par5 ] 

SUBTRACT opndl°,opnd2°l , count 1 - 
32767 H RESULT=°o£ndi] 
IPREC = SJDH ,P1 = ,P2=,P3=] 

TASK start! , priority 1501 1 - 510 ] I EVENT = name ] 

l,TERMERR = label ] I FLOAT* YES ]!ERRXIT = label] 
(taskname required for label) 
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TERMCTRL 



TEXT 
TITLE 
TP 
TP 

TP 
TP 
TP 

TP 

TP 

TP 
TP 
TP 

USER 

WAIT 

WHERES 

WRITE 



WXTRN 

XYPLOT 

YTPLOT 



function 

BLANK I DISPLAY | TONE | BLINK I UNBL INK I LOCK I 
UN LOCK I PF, code I SET, ATTN = YES I NO I LET, 
LPI=6|8|PUTST0RE|GETST0RE l,opl° 
addr ][ ,op2° addr ][ , TYPE=1 |2|4|5|6|7] 

'message' | LENGTH = 1 - 2541 , CODE = E | A ] 

message (label not allowed) 

CLOSE! ,ERROR= 1 

FETCH, stloc°[ , length - 
256 ][ ,ERROR = label ] [,P2=,P3=] 

OPENIN,dsnloc°[ , ERROR* label ][ ,P2=] 

OPENOUT,dsnloc°l , ERROR = label ] I , P2= ] 

READ, buffer ! , count 1 - 32767 ] ! , END = label J 
[ ,ERROR = label ][ ,P2=,P3= ] 

RELEASE, stloc°[ , length - 
2 56 ][ ,ERROR = label ] ! ,P2=,P3= ] 

SET, stloc°[ , length - 256 ] [ , ERROR = label ] 
I ,P2=,P3= J 

SUBMIT, dsnloc °[ ,ERROR= label ][ ,P2= ] 

TIMEDATE,loc°[ , ERROR = label ][, P2= J 

WRITE, buffer ! , count I - 32767] 
[,relrecno° - 32767 I blks i ze° 156|[18 - 
32 76 7] [ , END= label ][,ERR0R=label][P2=,P3=] 

name! ,PARM=(parml, . . ,parmn) ] 
! ,P=(namel, . . , namen ) ] 

event ! , RESET]! ,P1= ] 

prognme, address! , KEY II ,P1=,P2=,P3=] 

DSx,loc°l , count 1 - 32767] I,relrecno°£ - 
max records-1 Iblksize .L5_6lU8 - 32766]] 
[,END = label] I , ERROR = labe 1 ] 
tWAIT=XES|NO]l , P2=,P3=,P4= ] 

symbol 1 1 , symbol 2 , . . . , symboln ] 

x,y,pcb,n!Pl=,P2=,P3=,P4=] 

y,xl,pcb,n,incl,Pl=,P2=,P3=,P4=,P5=] 



o 



i 1 
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INDEXED ACCESS METHOD 

Instruct i on Operands 

CALL IAM, (DEFINE) 

CALL IAM, (DELETE), iacb, (key) 

CALL IAM,(DISCONN) , iacb 

CALL IAM,(ENDSEQ) , iacb 

CALL IAM, (EXTRACT) , iacb, (buff-addr) [,(size 

RLLLlbyte-value) ] 

CALL IAM, (GET) , iacb, (buff-addr), (key)[ , (SHARE) 1 

(EXCLUSV)/(EQ) I (GT) | (GE) | (UPEQ) I (UPGT) I (UPGE) ] 

CALL IAM,(GETSEQ), iacb, (buff-addr), (kev)[ (SHARE) 1 

(EXCLUSV)/(EQ) I (GT) | (GE) | (UPEQ) I (UPGT) I (UPGE) ] 

CALL IAM, (LOAD), iacb, ( dscb-addr | DSn ) , ( open tab-add r ) 

t , (SHARE) I (EXCLUSV) ] 

CALL IAM, (PROCESS) (dscb-addr), ( open tab-add r ) 

I , (SHARE) 1 (EXCLUSV) ] 

CALL IAM, (PUT), iacb, (buff-addr) 

CALL IAM,(PUTDEL) , iacb 

CALL IAM,(PUTUP) , iacb, (buff-addr) 

CALL IAM, (RELEASE) , iacb 
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MULTIPLE TERMINAL MANAGER 

Instruction Opprands 

CALL ACTION! , (buf f er-addr ) , (length) , (crlf addr)] 

CALL BEEP 

CALL CDATA, (type) , (userid) , (userclass) , 

(termname) , (buffersi ze) 

CALL CHGPAN 

CALL CYCLE 

CALL FAN 

CALL FILEIO, (FCA-addr) , (buf f er-addr ) , ( return-code-addr ) 

CALL FTAB, (table) , (si ze) , (return-code-addr) 

CALL LINK, (pgmname ) 

CALL LINKON, (pgmname) 

CALL MENU 

CALL SETCUR, ( row-ad dr ) , (column-addr) 

CALL SETPAN, (dsname-addr) , (return-code-addr) 

CALL WRITE, (buf fer-addr), (length) , (crlf addr) 
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tive library. By briefly listing the content of each book 
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library, it should assist you in using the library as a 
whole as well as direct you to the individual books you 
requ i re . 
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book, and a set of tabs: 
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Interna 1 


Design), LY34 


-0168 
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S e r i e s / 1 
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Executive Multiple Terminal 



Manager Internal Design (or Multiple Terminal Manager 
Internal Design ) , LY34-0190 

IBM Series/1 Event Driven Executive Indexed Access 
Method Internal Design (or Indexed Access Method 
Internal Design ) , LY34-0189 

IBM Series/1 Event Driven Executive Reference Summary 
(or Reference Summary ), SX34-0101 

IBM Series/1 Event Driven Executive Tabs (or Tabs ) , 
SX34-0030 
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Summary of Library 



System Guide 



The System Guide introduces the concepts and capabilities 
of the Event Driven Executive system. It discusses 
mult i -task i ng* program and task structure* program over- 
lays* storage management* and data management. 

Planning aids include hardware and software requirements* 
along with guidelines for storage estimating. 

The System Guide also presents step-by-step procedures for 
generating a supervisor tailored to your Series/1 hardware 
configuration and software needs. 

The description of the Indexed Access Method contains the 
information on how to write applications that use indexed 
data sets . 
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The description of the session manager includes a proce- 
dure for modifying the session manager to include applica- 
tion programs in the primary option menu so that you can 
execute them under the session manager. You can also add a 
procedure to compile* link* and update programs. 



Information is also provided concerning partitioned data 
sets* tape data organization* diagnostic - = -» - 
inter-program communication* logical screens 
data set allocation. 



a i ds * 
and dynami c 






Uti lities 

U t i 1 i t i e s describes: 

• Event Driven Executive utility programs 

• Operator commands 

• Procedures to prepare and execute system and applica- 
t i on programs 

• The session manager — a menu-driven interface program 
that will invoke the programs required for program 
development 

• Messages and codes issued by the Event Driven Execu- 
t i ve system 
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The operator commands* program preparation facilities, and 
session manager are grouped by function and discussions 
include detailed syntax and explanations. The utilities 
are presented in alphabetical order. 



Language Reference 



The Language Reference familiarizes you with the Event 
Driven Language by first grouping the instructions into 
functional categories. Then the instructions are listed 
alphabetically, with complete syntax and an explanation of 
each operand . 

The final section of the Language Reference contains exam- 
ples of using the Event Driven language for applications 
such as : 



Program load i ng 

User exit rout i ne 

Graphi cs 

I/O level control program 

Indexing and hardware register usage 



Communications Guide 



The Communications Guide introduces the Event Driven Exec- 
utive communications support — binary synchronous commu- 
nications, asynchronous communications, and the Host 
Communications Facility. 

The Communications Guide contains coding details for all 
utilities and Event Driven language instructions needed 
for communications support and advanced terminal applica- 
t i ons . 



Internal Design 



Internal Design describes the internal logic flow and 
specifications of the Event Driven Executive system so 
that you can understand how the system interfaces with 
application programs. It familiarizes you with the design 
and implementation by describing the purpose, function, 
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and operation of the various Event Driven Executive system 
programs . 



Multiple Terminal Manager Internal Design and Indexed 
Access Method Internal Design describe the internal lo 
flow and specifications of these programs. 
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Unlike the other manuals in the library, the Interna 1 
Design books contain material that is the licensed proper- 
ty of IBM and they are available only to licensed users of 
the Event Driven Executive system. 



Reference Summary 



The Reference Summary is a pocket-sized booklet to be used 
for quick reference. It lists the Event Driven language 
instructions with their syntax, the utility and program 
preparation commands, and the completion codes. 



Tabs 






The tabs package must be ordered separately. The package 
contains 33 index tabs by subject, with additional blank 
tabs. These extended tabular pages can be inserted at the 
front of various sections of the library. The tabs are 
color coded according to the major library topics. 



'v.y 



Reading Sequence 

All readers of the Event Driven Executive library should 
begin with the first three chapters of the System Guide 
("Introduction," "The Supervisor and Emulator," and "Data 
Management") for an overview of the Event Driven Executive 
concepts and facilities. 

Readers responsible for installing and preparing the 
system should then continue in the System Guide with "Sys- 
tem Configuration" and "System Generation." 

All readers should review the Utilities "Introduction" to 
become familiar with the utility functions available for 
the Event Driven Executive system. Then you can read more 
specific sections for particular utilities, operator com- 
mands, and program preparation facilities. 
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After you have a basic understanding of the Event Driven 
Executive system and how you can best use the system for 
your applications* you should read the Language Reference 
"Introduction." This will familiarize you with the poten- 
tial of the Event Driven Language and prepare you to start 
coding application programs. 

If you have communications support for your Event Driven 
Executive system* you should read the Commun i cat i ons 
Guide t which is an extension of the System Guide * 
U t i 1 i t i e s * and the Language Reference . 

After you know the functions of the various Event Driven 
Language instructions* utilities* and program preparation 
facilities, you may wish to refer only to the Reference 
Summary for correct syntax while coding your applications. 

Only readers responsible for the support or modification 
of the Event Driven Executive system need to read Internal 
Design. 
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GLOSSARY 



This glossary contains terms that are used in the Series/1 Event Driven 
Executive software publications. All software and hardware terms are 
Series/1 oriented. This glossary defines terms used in this library and 
serves as a supplement to the IBM Data Processing Glossary (GC20-1699). 



$SYSLGGA. The name of the 
alternate system logging device. 
This device is optional but* if 
defined, should be a terminal with 
keyboard capability, not just a 
pri nter . 

$SYSLOG. The name of the system 
logging device or operator 
station; must be defined for every 
system. It should be a terminal 
with keyboard capability, not just 
a printer. 



$SYSPRTR. 

pri nter. 



The name of the system 



ACCA. See asynchronous 
communications control adapter. 

address key. Identifies a set of 
Series/1 segmentation registers 
and represents an address space. 
It is one less than the partition 
number. 



the Multiple Terminal Manager 
faci li ti es. 

asynchronous communications con- 
trol adapter. An ASCII terminal 
attached via #1610, #2091 with 
#2092, or #2095 with #2096 adapt- 
ers. 

attention list. A series of pairs 
of 1 to 8 byte EBCDIC strings and 
addresses pointing to EDL 
instructions. When the attention 
key is pressed on the terminal, 
the operator can enter one of the 
strings to cause the associated 
EDL instructions to be executed. 

backup. A copy of data to be used 
in the event the original data is 
lost or damaged. 

base records. Records that have 
been placed into an indexed data 
set while in load mode. 



address space. The logical 
storage identified by an address 
key. An address space is the 
storage for a partition. 



basic exchange format. A standard 
format for exchanging data on 
diskettes between systems or 
devi ces. 



application program manager. The 

component of the Multiple Terminal 
Manager that provides the program 
management facilities required to 
process user requests. It con- 
trols the contents of a program 
area and the execution of programs 
within the area. 



binary synchronous device data 
block CBSCDDB). A control block 
that provides the information to 
control one Series/1 Binary Syn- 
chronous Adapter. It determines 
the line characteristics and pro- 
vides dedicated storage for that 
li ne. 



application program stub. A 

collection of subroutines that are 
appended to a program by the link- 
age editor to provide the link 
from the application program to 



block. (1) See data block or 
index block. (2) In the Indexed 
Method, the unit of space used by 
the access method to contain 
indexes and data. 
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5SCDDB. See binary synchronous 
device data block. 

buffer. An area of storage that 
is temporarily reserved for use in 
performing an input/output oper- 
ation, into which data is read or 
from which data is written. See 
input buffer and output buffer. 

bypass label processing. Access 
of a tape without any label proc- 
essing support. 

CCB. See terminal control block. 

character image. An alphabetic, 
numeric, or special character 
defined for an IBM 4978 Display 
Station. Each character image is 
defined by a dot matrix that is 
coded into eight bytes. 

character image table. An area 
containing the 256 character 
images that can be defined for an 
IBM 4978 Display Station. Each 
character image is coded into 
eight bytes, the entire table of 
codes requiring 2048 bytes of 
storage. 

Cluster. In an indexed file, a 
group of data blocks that is 
pointed to from the same 
primary-level index block, and 
includes the primary-level index 
block. The data records and 
blocks contained in a cluster are 
logically contiguous, but are not 
necessarily physically contiguous. 

COD (change of direction). A 

character used with ACCA terminal 
to indicate a reverse in the 
direction of data movement. 

command. A character string from 
a source external to the system 
that represents a request for 
action by the system. 

common area. A usei — defined data 
area that is mapped into every 
partition at the same address. It 



can be used to contain control 
blocks or data that will be 
accessed by more than one program. 

completion code. An indicator 
that reflects the status of the 
execution of a program. The com- 
pletion code is displayed or 
printed on the program's output 
device. 

conversion. See update. 

cross partition service. A 

function that accesses data in two 
parti ti ons. 

data block. In an indexed file, 
an area that contains control 
information and data records. 
These blocks are a multiple of 256 
bytes. 

data set. A group of contiguous 
records within a volume pointed to 
by a directory member entry in the 
directory for the volume. 

data set control block CDSCB). A 

control block that provides the 
information required to access a 
data set, volume or directory 
using READ and WRITE. 

data set shut down. An indexed 
data set that has been marked (in 
main storage only) as unusable due 
to an error. 

DCE. See directory control entry. 

DDB. See disk data block. 

direct access. (1) The access 
method used to READ or WRITE 
records on a disk or diskette 
device by specifying their 
location relative the beginning of 
the data set or volume. (2) In 
the Indexed Access Method, locat- 
ing any record via its key without 
respect to the previous operation. 
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directory. A series of contiguous 
records in a volume that describe 
the contents in terms of allocated 
data sets and free spaces. 

directory control entry 
(DCE). The first 32 bytes of the 
first record of a directory in 
which a description of the direc- 
tory is stored. 

directory member entry (DME). A 
32-byte directory entry describing 
an allocated data set. 

disk data block (DDB). A control 
block that describes a direct 
access volume. 

display Station. An IBM 4978 or 
4979 display terminal or similar 
terminal with a keyboard and a 
video display. 

DME. See directory member entry. 

DSCB. See data set control block. 

dynamic storage. An increment of 
storage that is appended to a pro- 
gram when it is loaded. 

end-of-data indicator. A code 
that signals that the last record 
of a data set has been read or 
written. End-of-data is detei — 
mined by an end-of-data pointer in 
the DME or by the physical end of 
the data set. 



event control block (ECB). A 

control block used to record the 
status (occurred or not occurred) 
of an event; often used to syn- 
chronize the execution of tasks. 
ECBs are used in conjunction with 
the WAIT and POST instructions. 

event driven language (EDL). The 

language for input to the Event 
Driven Executive compiler 
($EDXASM), or the Macro and Host 
assemblers in conjunction with the 
Event Driven Executive macro 
libraries. The output is intei — 
preted by the Event Driven Execu- 
tive emulator. 

EXIO (execute input or 
output). An EDL facility that 
provides user controlled access to 
Series/1 input/output devices. 

external label. A label attached 
to the outside of a tape that 
identifies the tape visually. It 
usually contains items of iden- 
tification such as file name and 
number, creation data, number of 
volumes, department number, and so 
on . 

external name (EXTRN). The 1- to 

8-character symbolic EBCDIC name 
for an entry point or data field 
that is not defined within the 
module that references the name. 

FCA. See file control area. 



ECB. See event control block. 



FCB 



See file control block. 



EDL. See Event Driven Language. 

emulator. The portion of the 
Event Driven Executive supervisor 
that interprets EDL instructions 
and performs the function speci- 
fied by each EDL statement. 

end-of-tape CEOT). A reflective 
marker placed near the end of a 
tape and sensed during output. 
The marker signals that the tape 
is nearly full. 



file control area (FCA). A 

Multiple Terminal Manager data 
area that describes a file access 
request. 

file control block (FCB). In an 

indexed data set, the first block 
of the data set. It contains 
descriptive information about the 
data contained in the data set. 
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file manager. A collection of 
subroutines contained within the 
program manager of the Multiple 
Terminal Manager that provides 
common support for all di sk data 
transfer operations as needed for 
transaction-oriented application 
programs. It supports indexed and 
direct files under the control of 
a single callable function. 

formatted screen image. A 
collection of display elements or 
display groups (such as operator 
prompts and field input names and 
areas) that are presented together 
at one time on a display device. 

free pool. In an indexed data 
set, a group of blocks that can be 
used as either a data block or an 
index block. These differ from 
other free blocks in that these 
are not initially assigned to spe- 
cific logical positions in the 
data set. 

free space. In the Indexed Access 
Method, record spaces or blocks 
that do not currently contain 
data, and are available for use. 

free space entry (FSE). A 4-byte 
directory entry defining an area 
of free space within a volume. 

FSE. See free space entry. 

hardware timer. The timer 
features available with the 
Series/1 processors. Specif- 
ically, the 7840 Timer Feature 
card or the native timer (4952 
only). Only one or the other is 
supported by the Event Driven 
Executi ve. 

host assembler. The assembler 
licensed program that executes in 
a 370 (host) system and produces 
object output for the Series/1. 
The source input to the host 
assembler is coded in Event Driven 
Language or Series/1 assembler 
language. The host assembler 



refers to the System/370 Program 
Preparation Facility (5798-NNQ). 

host system. Any system whose 
resources are used to perform 
services such as program prepara- 
tion for a Series/1. It can be 
connected to a Series/1 by a com- 
munications link. 
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IACB. 
block 



See indexed access control 



IAR. See instruction address 
regi ster . 

ICB. See indexed access control 
block. 

IIB. See interrupt information 
byte. 

image Store. The area in a 4978 
that contains the character image 
table. 

index. In the Indexed Access 
Method, an ordered collection of 
pairs, each consisting of a key 
and a pointer, used to sequence 
and locate the records in an 
Indexed Access Method data set. 

index block. In an indexed file, 
an area that contains control 
information and index entries. 
These blocks are a multiple of 256 
bytes. 

indexed access control block 
(IACB/ICB). The control block 
that relates an application pro- 
gram to an indexed data set. 

indexed access method. An access 
method for direct or sequential 
processing of fixed-length records 
by use of a record's key. 

indexed data set. A data set 
specifically created, formatted 
and used by the Indexed Access 
Method. An indexed data set may 
also be called an indexed file. 
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indexed file. Synonym for indexed 
data set. 

index entry. In an indexed file, 
a key-pointer pair, where the 
pointer is be used to locate a 
lower-level index block or a data 
block. 



request to or from a terminal. 

job. A collection of related 
program execution requests pre- 
sented in the form of job control 
statements, identified to the 
jobstream processor by a JOB 
statement . 



index register (#1, #2). Two 

words defined in EDL and contained 
in the task control block for each 
task. They are used to contain 
data or for address computation. 

input buffer. (1) See buffer. 
(2) In the Multiple Terminal Man- 
ager, an area for terminal input 
and output. 

input output control block 
(IOCB). A control block contain- 
ing information about a terminal 
such as the symbolic name, size 
and shape of screen, the size of 
the forms in a printer. 

instruction address register 
(IAR). The pointer that identi- 
fies the instruction currently 
being executed. The Series/1 
maintains a hardware IAR to detei — 
mine the Series/1 assembler 
instruction being executed. It is 
located in the level status block 
(LSB). 

interactive. The mode in which a 
program conducts a continuous 
dialogue between the user and the 
system. 

internal label. An area on tape 
used to record identifying infoi — 
mation (similar to the identifying 
information placed on an external 
label). Internal labels are 
checked by the system to ensure 
that the correct volume is 
mounted. 

interrupt information byte 
CUB). In the Multiple Terminal 
Manager, a word containing the 
status of a previous input/output 



job control statement. A 

statement in a job that specifies 
requests for program execution, 
program parameters, data set defi- 
nitions, sequence of execution, 
and, in general, describes the 
environment required to execute 
the program. 

job stream processor. The job 

processing facility that reads job 
control statements and processes 
the requests made by these state- 
ments. The Event Driven Executive 
job stream processor is $J0BUTIL. 

key. In the Indexed Access 
Method, one or more consecutive 
characters in a data record, used 
to identify the record and estab- 
lish its order with respect to 
other records. See also key 
field. 

key field. A field, located in 
the same position in each record 
of an Indexed Access Method data 
set, whose content is used for the 
key of a record. 

level status block (LSB). A 

Series/1 hardware data area that 
contains processor status. 

library. A set of contiguous 
records within a volume. It con- 
tains a directory, data sets 
and/or available space. 

line. A string of characters 
accepted by the system as a single 
input from a terminal; for exam- 
ple, all characters entered before 
the carriage return on the tele- 
typewriter or the ENTER key on the 
display station is pressed. 
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link edit. The process of 
resolving symbols in one or more 
object modules to produce another 
single module that is the input to 
the update process. 

load tnodQ. In the Indexed Access 
Method, the mode in which records 
are initially placed in an indexed 
file. 

load module. A single module 
having cross references resolved 
and prepared for loading into 
storage for execution. The module 
is the output of the $UPDATE or 
$UPDATEH utility. 

load point. A reflective marker 
placed near the beginning of a 
tape to indicate where the first 
record is written. 

lock. In the Indexed Access 
Method* a method of indicating 
that a record or block is in use 
and is not available for another 
request. 

LSB. See level status block. 

member. A term used to identify a 
named portion of a partitioned 
data set (PDS). Sometimes member 
is also used as a synonym for a 
data set. See data set. 

menu. A formatted screen image 
containing a list of options. The 
user selects an option to invoke a 
program. 

menu-driven. The mode of 
processing in which input consists 
of the responses to prompting from 
&n option menu. 

multifile volume. A unit of 
recording media, such as tape reel 
or disk pack, that contains more 
than one data file. 

multiple terminal manager. An 
Event Driven Executive licensed 
program that provides support for 



transacti on-ori en ted appli cati ons 
on a Series/1. It provides the 
capability to define transactions 
and manage the programs that sup- 
port those transactions. It also 
manages multiple terminals as 
needed to support these trans- 
acti ons. 

multi volume file. A data file 
that, due to its size, requires 
more than one unit of recording 
media (such as tape reel or disk 
pack) to contain the entire file. 

non-labeled tapes. Tapes that do 
not contain identifying labels (as 
in standard labeled tapes) and 
contain only files separated by 
tapemarks. 

null Character. A user-defined 
character used to define the 
unprotected fields of a formatted 
screen . 

option selection menu. A full 
screen display used by the Session 
Manager to point to other menus or 
system functions, one of which is 
to be selected by the operator. 
(See primary option menu and sec- 
ondary option menu.) 

output buffer. (1) See buffer. 
(2) In the Multiple Terminal Man- 
ager, an area used for screen 
output and to pass data to subse- 
quent transaction programs. 

overlay. The technique of reusing 
a single storage area allocated to 
a program during execution. The 
storage area can be reused by 
loading it with overlay programs 
that have been specified in the 
PROGRAM statement of the program. 

overlay area. A storage area 
within a program reserved for 
overlay programs specified in the 
PROGRAM statement. 
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parameter selection menu. A full 
screen display used by the Session 
Manager to indicate the parameters 
to be passed to a program. 

partition. A contiguous 
fixed-sized area of storage. Each 
partition is a separate address 
space. 



Physical timer, 
hardware timer. 



Synonym for 



prefind. To locate the data sets 
or overlay programs to be used by 
a program and to store the neces- 
sary information so that the time 
required to load the prefound 
items is reduced. 

primary-level index block. In an 

indexed data set, the lowest level 
index block. It contains the rel- 
ative block numbers (RBNs) and 
high keys of several data blocks. 
See cluster. 

primary menu. The program 
selection screen displayed by the 
Multiple Terminal Manager. 

primary option menu. The first 
full screen display provided by 
the Session Manager. 

primary task. The first task 
executed by the supervisor when a 
program is loaded into storage. 
It is identified by the PROGRAM 
statement. 

priority. A combination of 
hardware interrupt level priority 
and a software ranking within a 
level. Both primary and secondary 
tasks will execute asynchronously 
within the system according to the 
priority assigned to them. 

process mode. In the Indexed 
Access Method, the mode in which 
records may be retrieved, updated, 
inserted or deleted. 



processor status word (PSW). A 

16-bit register used to (1) record 
error or exception conditions that 
may prevent further processing and 
(2) hold certain flags that aid in 
error recovery. 

program. A disk- or 
diskette-resident collection of 
one or more tasks defined by a 
PROGRAM statement; the unit that 
is loaded into storage. (See pri- 
mary task and secondary task.) 

program header. The control block 
found at the beginning of a 
program that identifies the prima- 
ry task, data sets, storage 
requirements and other resources 
required by a program. 

program/storage manager. A 
component of the Multiple Terminal 
Manager that controls the 
execution and flow of application 
programs within a single program 
area and contains the support 
needed to allow multiple opei — 
ations and sharing of the program 
area. 

protected field. On a display 
device, a field in which the oper- 
ator cannot enter, modify, or 
erase data from the keyboard. It 
can contain text that the user can 
read. 

PSW. See processor status word. 

QCB. See queue control block. 

QD. See queue descriptor. 

QE. See queue element. 

queue control block (QCB). A data 
area used to serialize access to 
resources that cannot be shared. 
See serially reusable resource. 

queue descriptor (QD). A control 
block describing a queue built by 
the DEFINEQ instruction. 
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queue element (QE). An entry in 
the queue defined by the queue 
descriptor. 

record. (1) The smallest unit of 
direct access storage that can be 
accessed by an application program 
on a disk or diskette using READ 
and WRITE. Records are 256 bytes 
in length. (2) In the Indexed 
Access Method* the logical unit 
that is transferred between $IAM 
and the user's buffer. The length 
of the buffer is defined by the 
user. 

recovery. The use of backup data 
to recreate data that has been 
lost or damaged. 

reflective marker. A small 
adhesive marker attached to the 
reverse (nonrecordi ng) surface of 
a reel of magnetic tape. 
Normally, two reflective markers 
are used on each reel of tape. 
One indicates the beginning of the 
recording area on the tape (load 
point), and the other indicates 
the proximity to the end of the 
recording area (EOT) on the reel. 

relative record number. An 
integer value identifying the 
position of a record in a data set 
relative to the beginning of the 
data set. The first record of a 
data set is record one, the second 
is record two, the third is record 
three. 



roll screen. A display screen on 
which data is displayed 24 lines 
at a time or data is entered line 
by line, beginning with line at 
the top of the screen and continu- 
ing through line 23 at the bottom 
of the screen. When a roll screen 
device's screen is full (all 24 
lines used), an attempt to display 
the next line results in removal 
of the old screen (screen is 
erased) and the new line on line 
is displayed at the top of the 
screen. 

SBIOCB. See sensor based I/O 
control block. 

second-level index block. In an 

indexed data set, the 
second-lowest level index block. 
It contains the addresses and high 
keys of several primary-level 
index blocks. 

secondary option menu. In the 
Session Manager, the second in a 
series of predefined procedures 
grouped together in a hierarchical 
structure of menus. Secondary 
option menus provide a breakdown 
of the functions available under 
the session manager as specified 
on the primary option menu. 

secondary task. Any task other 
than the primary task. A second- 
ary task must be attached by a 
primary task or another secondary 
task. 






reorganize. For an indexed data 
set, the copying of the data to a 
new indexed data set in a manner 
that rearranges the data for more 
optimum processing and free space 
di stri buti on . 

return code. An indicator that 
reflects the results of the exe- 
cution of an instruction or sub- 
routine. The return code is 
placed in the task code word (at 
the beginning of the task control 
block). 



sector. The smallest addressable 
unit of storage on a disk or 
diskette. A sector on a 4962 or 
4963 disk is equivalent to an 
Event Driven Executive record. On 
a 4964 or 4966 diskette, two sec- 
tors are equivalent to an Event 
Driven Executive record. 

sensor based I/O control block 
(SBIOCB). A control block con- 
taining information related to 
sensor I/O operations. 
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sequential access. The processing 
of a data set in order of occui — 
rence of the records in the data 
set. CD In the Indexed Access 
Method, the processing of records 
in ascending collating sequence 
order of the keys. (2) When using 
READ/WRITE, the processing of 
records in ascending relative 
record number sequence. 

serially reusable resource 
(SRR). A resource that can only 
be accessed by one task at a time. 
Serially reusable resources are 
usually managed via (1) a QCB and 
ENQ/DEQ statements or (2) an ECB 
and WAIT/POST statements. 

session manager. A series of 
predefined procedures grouped 
together as a hierarchical struc- 
ture of menus from which you 
select the utility functions, pro- 
gram preparation facilities, and 
language processors needed to pre- 
pare and execute application pro- 
grams. The menus consist of a 
primary option menu that displays 
functional groupings and secondary 
option menus that display a break- 
down of these functional 
groupi ngs. 

Shared resource. A resource that 
can be used by more than one task 
at the same time. 



shut down 

down . 



See data set shut 



trailer label following the data 
records) . 

Static screen. A display screen 
formatted with predetermined 
protected and unprotected areas. 
Areas defined as operator prompts 
or input field names are protected 
to prevent accidental overlay by 
input data. Areas defined as 
input areas are not protected and 
am usually filled in by an opera- 
tor. The entire screen is treated 
as a page of information. 

subroutine. A sequence of 
instructions that may be accessed 
from one or more points in a pro- 
gram. 

supervisor. The component of the 
Event Driven Executive capable of 
controlling execution of both sys- 
tem and application programs. 

system configuration. The process 
of defining devices and features 
attached to the Series/1. 

SYSGEN. See system generation. 

system generation. The processing 

of user selected options to create 
a supervisor tailored to the needs 
of a specific Series/1 configura- 
tion. 

system partition. The partition 
that contains the supervisor (pai — 
tition number 1, address space 0). 



source module/program. A 
collection of instructions and 
statements that constitute the 
input to a compiler or assembler. 
Statements may be created or modi- 
fied using one of the text editing 
faci 1 i ti es. 

standard labels. Fixed length 
80-character records on tape con- 
taining specific fields of infor- 
mation (a volume label identifying 
the tape volume, a header label 
preceding the data records, and a 



tapemark. A control character 
recorded on tape used to separate 

f i les. 

task. The basic executable unit 
of work for the supervisor. Each 
task is assigned its own priority 
and processor time is allocated 
according to this priority. Tasks 
run independently of each other 
and compete for the system 
resources. The first task of a 
program is the primary task. All 
tasks attached by the primary task 
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are secondary tasks. 

task code word. The first two 
words (32 bits) of a task's TCB; 
used by the emulator to pass 
information from system to task 
regarding the outcome of various 
operations, such as event com- 
pletion or arithmetic operations. 

task control block CTCB). A 
control block that contains infoi — 
mation for a task. The informa- 
tion consists of pointers, save 
areas, work areas, and indicators 
required by the supervisor for 
controlling execution of a task. 

task supervisor. The portion of 
the Event Driven Executive that 
manages the dispatching and 
switching of tasks. 

TCB. See task control block. 

terminal. A display station, 
teletypewriter or printer. 

terminal control block CCCB). A 

control block that defines the 
device characteristics, provides 
temporary storage, and contains 
links to other system control 
blocks for a particular terminal. 

terminal environment block 
(TEB). A control block that con- 
tains information on a terminal's 
attributes and the program manager 
operating under the Multiple Tei — 
minal Manager. It is used for 
processing requests between the 
terminal servers and the program 
manager. 

terminal screen manager. The 
component of the Multiple Terminal 
Manager that controls the presen- 
tation of screens and communi- 
cations between terminals and 
transaction programs. 

terminal server. A group of 
programs that perform all the 
input/output and interrupt handl- 



ing functions for terminal devices 
under control of the Multiple Ter- 
minal Manager. 

trace range. A specified number 
of instruction addresses within 
which the flow of execution can be 
traced. 

transaction oriented 
applications. Program execution 
driven by operator actions, such 
as responses to prompts from the 
system. Specifically, applica- 
tions executed under control of 
the Multiple Terminal Manager. 

transaction program. See 

transact i on-ori en ted appl i cati ons. 

transaction selection menu. A 
Multiple Terminal Manager display 
screen (menu) offering the user a 
choice of functions, such as read- 
ing from a data file, displaying 
data on a terminal, or waiting for 
a response. Based upon the choice 
of option, the application program 
performs the requested processing 
operati on. 

unprotected field. On a display 
device, a field in which the user 
can enter, modify, or erase data 
using the keyboard. Unprotected 
fields on a static screen are 
defined by the null character. 

update. (1) To alter the contents 
of storage or a data set. (2) To 
convert object modules, produced 
as the output of an assembly or 
compilation, or the output of the 
linkage editor, into a form that 
can be loaded into storage for 
program execution and to update 
the directory of the volume on 
which the loadable program is 
stored. 

user exit. (1) Assembly language 
instructions included as part of 
art EDL program and invoked via the 
USER instruction. (2) A point in 
an IBM-supplied program where a 
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user written routine can be given 
control . 

vary offline. (1) To change the 
status of a device from online to 
offline. When a device is off- 
line, no data set can be accessed 
on that device. (2) To place a 
disk or diskette in a state where 
it is not available for use by the 
system; however, it will still be 
available for executing I/O at the 
basic access level (EXIO). 



volume. A disk or diskette 
subdivision defined during system 
configuration. A volume may con- 
tain up to 32,767 records. As 
many volumes may be defined for a 
disk as will physically fit. A 
diskette is limited to one volume 

volume label. A label that 
uniquely identifies a single unit 
of storage media. 






vary online. To restore a device 
to a state where it is available 
for use by the system. 
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COMMON INDEX 



This index is common to the Event Driven Executive library. The index 
includes entries from the seven publications listed below. (The Glossary 
is not indexed.) Each publication has a copy of the index, which provides 
a cross-reference between the publications. 

Each page number entry contains a single letter prefix which identifies 
the publication where the listed subject can be found. The letter pre- 
fixes have the following meanings 5 

C = Communications and Terminal Application Guide 

I = Internal Design 

L = Language Reference 

S = System Gui de 

U = Utilities, Operator Commands, Program Preparation, Messages and 
Codes 

M = Multiple Terminal Manager Internal Design 

A = Indexed Access Method Internal Design 



Special Characters 



$$EDXLIB system name L-228, S-57 
$$EDXV0L system name L-228, S-57 
$A display active programs, 

operator command S-63, U-ll 
$ATTASK special task control 

block L-61 
$AUT0 link edit auto call data 

set S-403, U-401 
$B blank (clear) screen, operator 

command S-63, U-12 
$BSCTRCE trace utility for BSC 

lines C-61 
$BSCUT1 trace printing utility for 

nc(« C — fi ? 

$BSCUT2 test utility for BSC 

lines C-64 
$C cancel a program, operator 

command S-63, U-13 
$C0MPRES library compress S-64, 

U-57 
$C0PY copy data sets S-64, U-59 
$C0PYUT1 copy data sets with 

allocation S-64, U-64 
$CP change terminal's partition 
assignment command 

overview 1-73, S-63 
syntax U-14 
$D dump storage, operator command 

S-63, U-15 
$DASDI format disk or diskette 

S-64, U-68 
$DBUGNUC debug module description 

1-77 
$DEBUG debugging tool U-82 
$DIC0MP di splay composer 

command description U-106 
create partitioned data set 

member S-247 
invoking U-105 
overview S-67 
$DIINTR display interpreter U-150 



$DISKUT1 allocate/delete, list 
di rectory data 

$J0BUTIL procedure S-229 
allocate partitioned data set 

S-248 
command descriptions U-135 
overview S-64 
SDISKUT2 patch, dump, or clear 
member 

description U-142 
overview S-64 

printing I/O error logs S-275 
syntax U-143 
SDISKUT3 data management utility 
description S-315 
input to S-316 
request block contents S-317 
return codes S-319, U-444 
$DIUTIL display data base utility 

S-248, U-150 
$DUMP dump saved storage and 

registers utility U-163 
$E eject printer page, operator 

command S-63, U-16 
$EDIT1/$EDIT1N text editors 
command syntax 
EDIT U-174 
EDIT mode subcommands 

U-182 
END U-175 
LIST U-176 
READ U-177 
SUBMIT U-179 
WRITE U-180 
control keys U-172 
data set requirements U-169 
line editing commands U-203 
overview S-66, U-169 
summary of commands and 
subcommands U-171 
$EDXASM Event Driven Language 
compi ler 

features supported U-361 
internal overview 1-5, 1-211 
invoking 

with $J0BUTIL U-368 
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with $L . U-370 
with session manager 
U-369 
listing program ($EDXLIST) 

U-370 
options U-358 
output U-359 

overlay program example 1-244 
overview S-71, U-356 
programming considerations 
U-361 

arithmetic expression 

operators U-365 
ATTNLIST U-365 
COPY statements U-362 
ECB and QCB U-362 
EQU U-365 

GETEDIT and PUTEDIT U-365 
instructions requiring 

support modules U-365 
I0DEF statement placement 

U-364 
multiple declarations on 

DATA/DC U-363 
source line continuation 
U-361 
required data sets U-357 
usage example S-397 
using the compiler U-356 
$EDXATSR supervisor interface 

routine 1-48 
$EDXDEF hardware configuration 

editing to match hardware con- 
figuration S-117 
overview 1-5, 1-6 
storage map 1-7 
$EDXL language control data set of 

SEDXASM 1-221, U-357 
$EDXLI5T compiler listing program 

U-370 
$EDXNUC supervisor data set 

in system generation S-126 
overview 1-5 
with $LINK utility U-399 
$EDXNUC supervisor data sets 

U-399 
$EXEC language emulator linkage 

1-279, 1-313 
$EXEC session manager option 

S-216, U-41 
$F0NT 4978 character image tables 

utility S-68, U-205 
$FSEDIT full-screen editor, host 
and native 

data set requirements U-209 
opti ons 

BROWSE U-213 
EDIT U-214 
END U-218 
READ U-216 
SUBMIT U-217 
WRITE U-216 
overview S-66, U-209 
primary commands U-218 
program function (PF) keys 

U-211 
scrolling U-210 
summary of options and 
commands U-212 
$HCFUT1 Host Communications 

Facility utility C-107 
$IAM Indexed Access Method load 

module S-155 
$IAM task error exit S-178 



$IAMUT1 Indexed Access Method 

utility S-148, U-235 
$IDEF $EDXASM instruction 
def i ni ti on 

description 1-241 
instruction format 1-226 
$IMAGE define screen image 
utility S-68, U-250 

usage example S-387 
$IMDATA subroutine S-303 

usage example S-375 
$IMDEFN subroutine S-301 

usage example S-375 
$IM0PEN subroutine S-300 

usage example S-374 
$IMPR0T subroutine S-302 

usage example S-375 
$INDEX subroutine, $EDXASM 1-233 
$INITDSK initialize or verify 

volume S-64, U-256 
$INITIAL automatic initialization 
and restart 

description S-129 
with session manager S-209, 
U-28 
$I0TE5T test sensor I/O, list con- 
figuration S-67, U-263 
$J0BUTIL job stream processor 
S-69, U-271 

commands U-272 
set up procedure U-271 
usage example S-408, U-290 
$L load program, operator command 
internals 1-23 
overview S-63 
syntax U-17 
$LEMSG $LINK message data set 

U-401 
$LINK linkage editor 

data set requirements U-400 
description U-390 
in system generation 1-5 
i nvoki ng 

with $J0BUTIL U-405 
with $L U-405 
with session manager 
U-406 
overview S-71 
usage example S-402 
$LNKCNTL data set S-118 
$L0ADER 1-19, 1-22 

module description 1-78 
$L0G I/O error logging utility 
description S-270, U-292 
overview S-67 
$LPARSE subroutine 1-240 
$M0VEV0L disk volume dump/restore 

S-65, U-294 
$P patch storage, operator 

command S-63, U-18 
$PACK/$UNPACK subroutines S-309 
$PDS partitioned data set utility 
in a program S-259 
overview S-65 
$PFMAP identify 4978 program 

function keys S-68, U-301 
$PREFIND prefind data sets and 

overlays S-69, U-302 
$PRT2780 spooled print utility 

C-72 
SPRT3780 spooled print utility 

C-72 
$RJE2780 remote job entry utility 
C-73, S-66 
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SRJE3780 remote job entry utility 

C-73, S-66 

$RMU (see Remote Management Util- 
ity) 
$SMCTL session manager program 

S-209, S-212 
$SMEND session manager program 

S-212 
$SMJ0BR session manager program 

S-212 
$SML0G session manager program 

S-212 
$SMMAIN session manager program 

S-210, S-212, U-28 
$SMML0G, logon menu for session 

manager S-212 
$SMMPRIM, primary option menu for 

session manager S-212, U-27, 

U-35 
$SMM02, program preparation sec- 
ondary option menu S-214, U-37 
$SMM03, data management secondary 

option menu S-215, U-39 
$SMM04, terminal utilities 

secondary option menu S-215, 

U-41 
$SMM05, graphics utilities second- 
ary option menu S-216, U-41 
$SMM06, execute program utilities 

secondary option S-216 
$SMM07, job stream processor 

utilities secondary option S-216 
$SMM08, communications utilities 

option S-217, U-43 
$SMM09, diagnostic utilities 

S-217, U-44 
$START supervisor entry point 

1-279, 1-313 
$ST0REMAP example 1-27 
$SYSC0M data area 1-12, 1-279, 

1-313, S-113 
$SYSL0G system logging device 

overview S-110 
SSYSLOGA alternate system logging 

devi ce 

overview S-lll 
$SYSPRTR system printer 

overview S-lll 
$S1ASM Series/1 macro assembler 
description U-372 
internals 1-5, 1-253 
overview S-9 

storage map, general 1-256 
$T set date/time, operator 

command S-63, U-19 
$TAPEUT1 tape management utility 

U-311 
$TCBCCB (ATTACH) L-59 
$TERMUT1 change terminal 

parameters S-68, U-334 
$TERMUT2 

process 4978 image or control 

store S-68, U-339 
restore 4974 image U-339 
$TERMUT3 send message to a 

terminal S-68, U-344 
$TRAP class interrupt trap 

utility S-67, U-348 
$UNPACK/$PACK subroutines S-309 
$UPDATE object program converter 
description U-408 
in system generation 1-5 
overview S-69 
usage example S-407 



SUPDATEH object program converter 

(host) S-69, U-418 
$VARY0FF set disk, diskette, or 

tape offline S-63, U-20 
$VARY0N set disk, diskette, or 

tape online S-63, U-22 

with standard labeled tape 
S-237 
$W display date/time, operator 

command S-63, U-25 
#1 index register 1 L-6 
#2 index register 2 L-6 



A after, $FSEDIT line command 

U-226 
A-conversion L-153 
A/I (see analog input) 
A/0 (see analog output) 
abort task level (SVC abend) 1-49 
ACCA terminal C-7, L-295 
Access Method, Indexed 

(see Indexed Access Method) 
ACTION, Multiple Terminal Manager 
CALL 

coding description C-130, 

L-360 
internals M-9 
overview C-117, L-29 
acti vate 

error logging, $L0G utility 

U-293 
realtime data member, RT 

$DIC0MP subcommand U-124 
stopped task, GO $DEBUG 

command U-93 
task supervisor execution 

state 1-43 
TRAP function of storage dump, 
$TRAP utility U-348 
AD 

add member, $DIC0MP command 

U-106 
advance, $DIC0MP subcommand 

U-lll 
advance X,Y (PDS) S-255 
assign define key, $TERMUT2 
command U-342 
add 

add member, AD $DIC0MP com- 
mand U-106 
null data set on tape volume, 

TA $TAPEUT1 command U-330 
options to the session 

manager S-224 
support for new I/O terminals 
1-117 

calling conventions 1-118 
code translation tables 

1-118 
linkage conventions 1-119 
terminal instruction 
modification 1-119 
ADD data manipulation instruction 
coding description L-52 
overview L-19 
precision table L-53 
address relocation translator 

1-71, S-42 
addressing indexing feature L-6 
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ADDV data manipulation 
i nstructi on 

coding description L-54 
index register use L-55 
overview L-19 
precision table L-55 
advance, AD SDICOMP subcommand 

U-lll 
advance and prompting input* tei — 
minal I/O L-46 



AI 
AL 



(see analog input) 



SDIUTIL 



allocate 

command 

allocate 

command 

allocate 

command 

al locate 

command 

allocate 

data set 

$J0BUTIL command U-273 
AL $DISKUT1 command U-137 
ALLOCATE function C-214 
tape, TA STAPEUT1 command 
U-333 



data member, 

U-151 
data set, SDISKUT1 

U-137 
data set, $J0BUTIL 

U-273 
member, $DIC0MP 

U-107 



member 

SDICOMP 
$DIUTIL 
$PDS S- 



command 
command 
261 



U-107 
U-151 



ALLOCATE function C-216, 1-166, 

1-174 
allowable precision table L-20 
alter member AL SDICOMP command 

U-107 
alter terminal configuration, 

STERMUT1 U-334 
alternate system logging device 

($SYSL0GA) S-47 
alternate tracks S-58, U-73, U-78 
ALTIAM Indexed Access Method 

subroutine S-167 
analog input S-49 

AI $I0TEST command U-268 
control block 1-129 
IODEF statement L-187 
overview S-49 
SBIO instruction L-263 
SENSORIO configuration 
statement L-39 
analog output 

AO $I0TEST command U-264 
control block 1-129 
description S-49 
IODEF statement L-186 
SBIO instruction L-264 
SENSORIO configuration 
statement L-39, S-84 
AND data manipulation instruction 
coding description L-57 
overview L-19 
AO (see analog output) 
application program 

automatic initialization and 

restart S-129 
indexed access S-149 
introduction L-l 
manager C-119 
preparation U-351 



size estimating 
structure L-8 
support S-20 
ASCII terminals 
codes S-110 



S-344 



configuring S-96 
devices supported C-6 , S-14 
graphics L-26, S-46 
TERMINAL statement examples 
S-106 
ASMERROR, $EDXASM instruction 

1-230 
assembler 

(see $EDXASM) 
(see $S1ASM) 
(see host assembler) 
assi gn 

alternate for defective 4963 

sector, $DASDI utility U-78 
DEFINE key in 4978 control 
store, AD $TERMUT2 command 
U-341 
asynchronous communications con- 
trol adapter (see ACCA) 
AT set breakpoints and trace 

ranges, $DEBUG command U-90 
ATTACH task control instruction 
coding description L-59 
internals 1-44 
overview L-42, S-34 
attention handling, terminal I/O 

1-108, L-47, S-63 
attention keys, terminal I/O L-47 
attention list (see ATTNLIST) 
ATTN key (see attention handling) 
ATTNLIST task control statement 
$ATTASK L-61 
coding description L-61 
overview L-42, S-30 
attribute character, 3101 C-122 
autocall 

option, SLINK U-401 
AUTOCALL statement requirement 

(UXTRN) L-323 
automat i c 

application initialization 

S-13, S-129 
application restart S-13, 
S-129 



o 






B before, $FSEDIT 

U-226 
backup di sk or di 
tape, ST $TAPEUT 
backup dump resto 

$M0VEV0L U-294 
base records, ind 
definition S 
loading S-16 
basic exchange 

di skette data 
ty, $C0PY U 
basic supervisor 

supervi sor/emula 
batch job process 

$J0BUTIL) 
BEEP, Multiple Te 
CALL 

coding descri 

L-361 
internals M- 
overview C-l 
bi nary synchronou 
automatic ret 
BSCAM/BSCAMU 



line command 

sk volume on 

1 command U-330 

re ut i li ty, 

exed data set 

-149 



set copy utili- 
-59 

and emulator (see 
tor) 
i ng (see 

rminal Manager 

ption C-137, 



17, L-29 

s communications 

ry S-17 

module 
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C-36, 



S-16 



descriptions 1-80 
BSCLINE configuration state- 
ment C-42, S-76 
control flow (BSCAM) 1-147 
device data block (BSCDDB) 

1-133 
features C-35, S-16 
Host Communications Facility 

protocol 1-156 
instruction formats C-38, 

1-144 
multipoint operation 

S-16 
overview S-16 
point-to-point lines 
Remote Management Utility 

requirements C-208 
sample programs C-59 
special labels for, 
description 1-149 
system internal design 1-133 
test utility, $BSCUT2 C-64 
trace printing routine, 

$BSCUT1 C-62 
trace routine, $BSCTRCE C-61 
blank screen, $B operator command 

S-63, U-12 
BLANK TERMCTRL function L-288 
BLDTXT subroutine, $EDXASM 1-237 
BLINK TERMCTRL function L-288 
BLP (see bypass label processing) 
BOT (begi nni ng-of-tape) L-40 
BOTTOM reposition line pointer, 

$EDIT1/N editor subcommand U-183 
boundary requirement, full-word 
DO L-34 
IF L-34 
PROGRAM L-225 
BP list breakpoints and trace 
ranges, $DEBUG command U-92 
breakpoints and trace setting, AT 

$DEBUG command U-90 
BROWSE display data set, $FSEDIT 

option U-213 
BSC (see binary synchronous 

communications) 
BSCAM (see binary synchronous com- 

muni cat i ons) 
BSCCLOSE BSC statement 1-144, 
1-148 

coding description C-38 
BSCDDB binary synchronous device 
data block 

description of 1-133 
equates 1-291 
BSCEQU L-ll 
BSCIA immediate action routine 

(BSC) 1-148 
BSCIOCB BSC statement 
BSCLINE configuration 

C-42, S-76 
BSCOPEN BSC statement 

1-145, 1-148 
BSCREAD BSC statement 

1-145, 1-148 
BSCWRITE BSC statement 

1-146, 1-148 
BSF (backward space file) L-75 
BSR (backward space record) L-75 
BTE, buffer table entry A-20 
BU build data member, $DIUTIL 

command U-153 
buffer 

table entry 

definition A-20 



C-39, 1-144 
statement 

C-44, 

C-45, 

C-49, 



te 

m 

BUFFER 

co 

ov 

build 

comma 

bui ldi 

U-247 

burst 

play 

bypass 

de 



description A-31 
rminal I/O buffer 
anagement 1-109 

data definition statement 
ding description L-65 
erview L-17 
data member, BU $DIUTIL 
nd U-153 
ng an indexed data set 



output with electronic di 
screens L-46 

label processing U-311 
scription S-244 



s- 



CA 



change a key definition, 
$TERMUT2 command U-342 
copy line, $FSEDIT line 
command U-226 
cancel 
assembly, $EDXASM attention 

request U-358 
copy, $C0PYUT1 attention 

request U-64 
list option, $FSEDIT attention 

request U-217 
listing, $EDXLIST attention 
request U-358 
CAD copy all data members, 

$C0PYUT1 command U-64 
CALL 

copy all members, $C0PYUT1 

command U-64 
program control instruction 
coding description L-68 
Indexed Access Method 
syntax S-146 



Multi pie 

syntax 
overvi ew 
program 
subrouti ne 
callable routines 



Terminal Manager 
L-359 

L-32, S-31 
L-68 
L-68 
L-30 



CALLFORT program control 
i nstructi on 

coding description L-70 
overview L-32 
cancel 

$C operator command U-13 
assembly, CA SEDXASM attention 

request U-358 
copy, CA $C0PYUT1 attention 

request U-64 
dump, CA $DUMP command U-165 
list option, CA $FSEDIT 

attention request U-217 
listing, CA $EDIT/N attention 
request U-172 
CAP copy all programs, $C0PYUT1 

command U-64 
CC copy block, $FSEDIT line 

command U-226 
CCB 

equate table 1-292 

internals 1-105, 1-119 

i nterprocessor communications 

C-30 
use in terminal I/O support 
1-113 
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CCBEQU L-ll 
CD 

clear data set, $DISKUT2 com- 
mand U-144 
copy data set, $C0PY command 

U-61 
copy data set, $TAPEUT1 
command U-313 
CDATA, Multiple Terminal Manager 
CALL 

coding description C-139, 

L-362 
internals M-9 
overview L-29 
CDRRM equates C-292 
CG copy all members (generic) 

$C0PYUT1 command U-64 
CH 

change hardcopy device, 

$B5CUT2 command C-70 
change host library, $UPDATEH 
command U-420 
chain, ECB/QCB/TCB 1-55 
CHAIN supervisor service routine 

1-54 
CHAIND supervisor service routine 

1-54 
CHAINE supervisor service routine 

1-54 
chaining L-27 
CHAINP supervisor service routine 

1-54 
change 

address assignment of termi- 
nal, RA $TERMUT1 command 
U-336 
base address, QUALIFY $DEBUG 

command U-101 
character string, CHANGE 
$EDIT1/N editor subcommand 
U-184 
character string, change 
$FSEDIT primary command 
U-219 
execution sequence, GOTO $DE- 

BUG command U-94 
graphics or report display 
profile, $DIC0MP utility 
U-105 
hardcopy device, CH $BSCUT2 

command C-70 
hardcopy device, RH STERMUT1 

command U-338 
host library, CH SUPDATEH 

command U-420 
key definition in 4978 control 

store, C $TERMUT2 U-342 
name of logical device, RE 

$TERMUT1 command U-337 
output volume, CV $UPDATE 

command U-409 
page formatting parameters of 
a terminal, CT $TERMUT1 
U-335 
partition assignment, $CP 

operator command U-14 
realtime data member name RT 

($PDS) S-258 
tape label support U-322 
volume 

CV $BSCUT1 command C-62 
CV $C0PYUT1 command U-64 
CV $DISKUT1 command U-137 
CV $DISKUT2 command U-143 
CV $UPDATEH command U-418 



character constants L-89 
character image table U-205 
CHGPAN, Multiple Terminal Manager 
CALL 

coding description C-135, 

L-364 
internals M-9 
overview C-124, L-29 
CL clear work data set, SFSEDIT 

primary command U-221 
class interrupt vector table 

1-10, 1-277 
class interrupts, intercepting, 

STRAP utility U-348 
clear 

data set, CD $DISKUT2 command 

U-144 
screen, $B operator command 
U-12 
CLOSE Host Communications Facili- 
ty, TP operand C-90 
CLSRU (close tape data set) L-75 
cluster, indexed data set S-200 
CM copy member 

SC0PYUT1 command U-64 
$DIUTIL command U-155 
CMDEQU L-12 
CMDSETUP 1-13, 1-67 
CNG copy all members 
(non-generi c) ,$C0PYUT1 command 
U-64 
CO command, $RJE2780/$RJE3780 

C-76 
COBOL 

execution requirements S-23 
link editing S-71 
overview S-7 
program preparation 
requirements S-23 
use with Multiple Terminal 
Manager C-193 
code translation 

new support tables 1-111 
terminal I/O layer 2 1-109 
code words, task L-8 
COLS display columns, SFSEDIT line 

command U-228 
command area, SEDXASM 1-214 
command descriptions U-235 
COMMAND send to host, 

$RJE2780/$RJE3780 C-75 
command table 1-68, 1-282, 1-301 
common data area (see $SYSC0M) 
common emulator setup routine 
command table 1-13, 1-282, 

1-301 
operating conventions 1-67 
communication error function 

1-166 
communications utilities 
SBSCTRCE C-61 
SBSCUT1 C-62 
SBSCUT2 C-64 
$HFCUT1 C-107 
$PRT2780 C-72 
$PRT3780 C-72 
$RJE2780 C-73 
$RJE3780 C-73 
$RMU C-282 
communications utilities (session 

manager) S-217, U-42 
communications vector table 1-11, 

1-278, 1-313 
compiler (see $EDXASM) 
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completion codes (see return 
codes) 

$EDXASM U-436 
$IAMUT1 U-437 
$J0BUTIL U-439 
$LINK U-440 
SUPDATE U-443 
compress 

data base, CP $DIUTIL command 

U-154 
library, $COMPRES utility 
U-57 
compressed byte string S-309 
CONCAT graphics instruction 
coding description L-72 
overview L-26 
concatenating indexed data sets 

S-167 
concurrent access L-27 
concurrent execution L-42 
configuration statements S-75 
configure terminal CT STERMUT1 

command U-335 
connecting an indexed data set 

S-159 
continuation, source program line, 

$EDXASM U-361 
control, device instruction level 

L-24 
control block (see DSCB) 
control block and parameter 
tables 

BSCEQU 1-133, 1-291, L-ll 
CCBEQU (see also CCB) L-ll 
CNDEQU (see also emulator 

command table) L-12 
DDBEQU 1-92, 1-308, L-12 
DSCBEQU (see also DSCB) L-12 
ERRORDEF L-12 
FCBEQU A-20, L-12 
IAMEQU L-12 
PROGEQU 1-312, L-13 
referencing 1-289 
TCBEQU (see also TCB) L-13 
control block module (ASMOBJ) 

description 1-76 
CONTROL IDCB command L-175 
control keys for text editors 

U-172 
control records, $LINK U-396 
control statements, program 
listing L-28 
task L-42 

terminal I/O forms control 
L-45 
CONTROL tape instruction L-74 
conversi on 

algorithm for graphics 1-201 

alphameric data L-152 

def i ni ti on 

EBFLCVT module description 

1-80 
floating point/binary 1-205 
numeric data L-148 
program modules by $UPDATE/H 

U-418 
terminal I/O binary/EBCDIC 
1-110 
CONVTB data formatting 
i nstructi on 

coding description L-79 
internals 1-207 
overview L-18 
CONVTD data formatting 
i nstructi on 



coding description L-82 
internals 1-207 
overview L-18 
copy 

block of text, CC $FSEDIT line 

command U-226 
data members, all, CAD 

$C0PYUT1 command U-64 
data set, CD $C0PY command 

U-61 
data sets with allocation, 

$C0PYUT1 utility U-64 
line of text, C $FSEDIT line 

command U-226 
member 

CM $C0PYUT1 command U-64 
CM $DIUTIL command U-155 
members 

all, CALL $C0PYUT1 com- 
mand U-64 
generic, CG $C0PYUT1 

command U-64 
non-generic, CNG SC0PYUT1 
command U-64 
programs, all, CAP SC0PYUT1 

command 11-64 
text, $EDIT1/N editor 

subcommand U-186 
volume, CV $C0PY command U-62 
copy code library, instruction 

parsing ($EDXASM) 1-222 
COPY instruction 

coding description L-86 
overview L-33 
Count record C-256 
CP compress data base, SDIUTIL 

command U-154 
CR invoke $DISKUT1, $IAMUT1 

command U-236 
create 

character image tables, $F0NT 

U-205 
source data set, $FSEDIT 

U-214 
supervisor for another 

Series/1 S-132 
unique labels, $SYSNDX 
($EDXASM) 1-242 
create indexed data set S-156 
cross partition instructions 1-71 
cross partition services S-286 
CSECT list, supervisor 
Version 1.1 S-347 
Version 2 S-357 
CSECT program module sectioning 
statement 

coding description L-87 
overview L-33 
CT 

change tape drive attributes, 

$TAPEUT1 command U-315 
configure terminal, $TERMUT1 
command U-335 
CV 

change output volume U-409 
$UPDATE command U-409 
SUPDATEH command U-418 
change volume 

$BSCUT1 command C-62 
$C0PYUT1 command U-64 
$DISKUT1 command U-137 
SDISKUT2 command U-143 
copy volume, $C0PY command 
U-59 
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CYCLE 

coding description C-132, 
L-365 

internals M-9 

overview C-116, L-29 
cylinder S-60 
cylinder track sector (CTS) U-135 



$FSEDIT line com- 



i nput ) 
output) 



D delete line, 

mand U-228 
D/I (see digital 
D/0 (see digital 
data 

conversion (see conversi 
conversion specification 
also conversion) L-146 
definition statements L 
files for $S1ASM 1-254 
floating-point arithmeti 

instructions 1-20 
formatting functions L- 
formatting instructions 
integer and logical 
instructions L-19 
length of transmitted, h 

communications 1-159 
management S-45 
management system, Index 

Access Method L-27 
manipulation instruction 

L-19 
record contents, text ed 

1-325 
representation L-20 

floating-point L-20 

integer L-19 

terminal input L-45 

terminal output L~4 

transfer initialisation, 

terminal I/O support I 

transfer rates. Host 

Communications Facility 
transfer ready, (DTR) BS 
1-148 
Data Collection Interactive 
DATA data definition stateme 
coding description L-88 
overview L-17 
data management utilities 
$C0MPRES S-64, U-57 
$C0PY S-64, U-59 
$C0PYUT1 S-64, U-64 
$DASDI S-64, U-68 
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-17 
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18 
L-18 

ost 
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-112 

C-84 
COPEN 

S-ll 
nt 



SDISKUTl 

$DISKUT2 

$DISKUT3 

$IANUT1 

$INITDSK 

$M0VEV0L 

$PDS S- 



S-64, 
S-64, 
S-315 
S-148, 
S-64, 
S-65, 
247 



135 
142 



U-235 
U-256 
U-294 



STAPEUTl U-311 

session manager S-215, U-38 
data manipulation, vector L-19 
data manipulation instructions 

L-19 
Data record C-257 
data representation, terminal I/O 

L-45 
data set 

allocation/deletion 



U-29 
C-83 



C-82, S-56 



$DISKUT1 U-137 
$DISKUT3 S-315 
$J0BUTIL U-273 
$PDS S-248 
session manager 
characteristics, HCF 
format 

OFSEDIT U-210 
$PDS S-249 
$PRT2780 C-72 
$PRT3780 C-72 
naming conventions 
transfer 

RECEIVE function C-243 
SEND function C-247 
utilities (see data management 
uti 1 i ti es) 
data set naming conventions, Host 

Communications Facility C-82 
data-set-shut-down condition 

S-179 
date/t i me 

di splay, $W operator command 

U-25 
set, $T operator command U-19 
DC data definition statement 
coding description L-88 
overview L-17 
DCB EXIO control statement 
coding description L-91 
overview L-24 
DCE directory control entry 

format 1-88 
DCI (Data Collection Interactive) 

S-ll 
DD block delete, $FSEDIT line 

command U-228 
DDB disk data block 

description 1-92 
equate table 1-308 
DDBEQU L-12 
DE delete member 

SDISKUTl command 
$DIUTIL command 
delete data set, 
command U-274 
deadlocks C-238, S-180 
debug 

$EDXASM overlay programs 

1-248 
aids (see also diagnostic 

aids) S-18 
facility, $DEBUG utility 
def i ne 

horizontal tabs, HTAB $IMAGE 

command U-252 
image dimensions, DIMS $IMAGE 

command U-251 
indexed data set, DF $IAMUT1 

command U-237 
null representation, NULL 

$IMAGE command U-253 
vertical tabs, VTAB $IMAGE 
command U-254 
DEFINEQ queue processing 
statement 

coding description L-94 
overview L-37 
definition statements, data L-17 
delete 

data set 

$J0BUTIL command U-274 
DELETE function C-216 
tape data set, TA $TAPEUT1 
command U-333 
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elements, IN $DICOMP command 

U-107 
member 

$PDS S-261 

DE $DISKUT1 command U-137 
DE $DIUTIL command U-156 
text 

$EDIT1(N) editor subcom- 
mand U-188 
line, D $FSEDIT line 
command U-228 
with $PREFIND U-305 
DELETE function C-216, 1-166, 

1-174 
DELETE instruction 

coding description L-329 
overview L-27, S-147 
return codes L-330 
DEQ task control instruction 
coding description L-95 
internals 1-59 
overview L-42, S-33 
supervisor function 1-46 
DEQBSC dequeue BSC DDB routine 

1-149 
DEQT terminal I/O instruction 
coding description L-97 
overview L-44, S-47 
DETACH task control instruction 
coding description L-98 
internals 1-45 
overview L-42, S-30 
detached, task supervisor 

execution state 1-43 
devi ce 

busy (EXOPEN) L-129 

data block description, EXIO 

1-123 
instruction level control 

L-24 
interrupt handling, EXIO 

1-125 
test utility, $I0TEST U-263 
vector table 1-11, 1-278 
DF define indexed file, $IAMUT1 

command U-237 
DI (see digital input) 
diagnosti c 

aids S-265 

summarized S-18 
uti li ti es 

SDEBUG U-82 
$DUMP U-163 
$I0TEST U-263 
$L0G U-292 
$TRAP U-348 
with session manager 
S-217, U-38 
digital input 

$I0TEST command U-266 
digital I/O control block 

1-129 
direct output, $DIC0MP subcom- 
mand U-112 
direct output to another 

device ($PDS) S-255 
display parameters, $IAMUT1 

command U-239 
external sync, XI $I0TEST 

command U-266 
IODEF statement L-186 
overview S-48 
SBIO instruction L-265 
SENSORIO configuration 
statement S-84 



digital output 

digital I/O control block 

1-129 
DO $I0TEST command U-265 
external sync, XO $I0TEST 

command U-266 
IODEF statement L-186 
overview S-48 
SBIO instruction L-267 
SENSORIO configuration 
statement L-84 
DIMS define image dimensions, 

$IMAGE command U-251 
direct access common I/O module, 

DISKIO, description 1-77 
direct access storage device 

organization S-52 
direct output, DI $DIC0MP 

subcommand U-112 
di rectory 

control entry (DCE) 1-88 
entries S-249 
member entry (DME) 1-89 
disaster recovery from tape, RT 

STAPEUT1 command U-326 
DISCONN Indexed Access Method 
CALL 

coding description L-332 
overview L-27, S-148 
return codes L-333 
DISCONNECT Multiple Terminal 

Manager utility C-119, C-159 
disconnecting an indexed data set 

S-159 
DISK configuration statement S-78 
di sk/di skette 

capacity S-58 
data block (DDB) 1-92 
fixed-head S-15, S-61 
I/O task 1-95 
IPL S-16, S-61 
primary volume S-60 
resident loading code 1-19 
secondary volume S-60 
symbolic addressing L-10 
uti li ti es 

$C0MPRES S-64, U-57 
$C0PY S-64, U-59 
$C0PYUT1 S-64, U-64 
$DASDI S-64, U-68 
$DISKUT1 S-64, U-135 
$DISKUT2 S-64, U-142 
$DISKUT3 S-315 
$IAMUT1 S-148, U-235 
$INITDSK S-64, U-256 
$M0VEV0L S-65, U-294 
$PDS S-247 
utility function table U-49 
volume S-16, S-52 
disk I/O instructions L-22 
DISKIO direct access common I/O 

module description 1-77 
display (see also list) 

character image tables, DISP 

$F0NT command U-205 
contents of storage or 
registers, LIST $DEBUG com- 
mand U-95 
control member ($PDS) S-250 
control member format ($PDS) 

S-252 
initial data values for image 

S-303 
processor composer, $DIC0MP 
U-105 
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processor interpreter, 

$DIINTR U-150 
processor utility, $DIUTIL 

U-150 
processor utility, general 

description U-105 
profile elements ($PDS) S-252 
protected and null fields of 

an image S-302 
report line items ($PDS) 

S-255 
status of all tasks, WHERE 

$DEBUG command U-102 
storage, $D operator command 

S-63, U-15 
time and data, TD ($PDS) 

S-258 
time and date, $14 operator 

command S-63, U-25 
utility program set ($PDS) 

S-248 
variable, VA($PDS) S-254 
4978 program function keys, 
$PFMAP utility U-301 
DISPLAY TERMCTRL function L-288 
DIVIDE data manipulation 
i nstructi on 

coding description L-99 
overvi ew L-19 
precision table L-100 
DME directory member entry 
format 1-89 

updated by SETEOD S-324 
DO 

digital output (see digital 

output) 
program sequencing 
i nstructi on 

coding description L-101 
overview L-34 
double-precision L-19 

floating-point arithmetic 

L-21 
integer and logical L-19 
DOWN move line poiner, $EDIT1/N 

editor subcommand U-189 
DP 

dump to printer 

$DISKUT2 command U-144 
$TAPEUT1 command U-317 
print trace file, $BSCUT1 
command C-62 
DR draw symbol, $DIC0MP 

subcommand U-112 
DR draw symbol ($PDS) S-254 
draw 

line, LI SDICOMP subcommand 

U-120 
line relative LR ($PDS) S-257 
symbol, DR $DIC0MP subcommand 
U-112 
DS data set identifier, $J0BUTIL 

command U-275 
DSCB data set control block 
statement 

coding description L-105 
equate table, DSCBEQU 1-311 
for tape, internals 1-99 
internals 1-92 
overview L-22 
DSCBEQU L-12 
DSECT (see control block and 

parameter equate tables) L— 1 1 
DSOPEN subroutine 

description S-322 



DSR data set ready in BSCOPEN 

1-148 
DTR data transfer ready in 

BSCOPEN 1-148 
DU 

dump on terminal, $DISKUT2 

command U-144 
dump trace file on terminal, 
$BSCUT1 command C-62 
dump 

restore volume utility 

$M0VEV0L U-294 
storage partition, DUMP 

function C-218 
to printer 

$DUMP utility U-163 
DP $DISKUT2 command U-143 
DP $TAPEUT1 command U-317 
PR $DIC0MP command U-108 
to terminal 

$DUMP utility U-163 
DP $TAPEUT1 command U-317 
DU $DISKUT2 command U-143 
PR $DIC0MP command U-108 
trace file on printer, DP 

$BSCUT1 command C-62 
trace file on terminal, DU 
$BSCUT1 command C-62 
DUMP function C-218, 1-166, 1-175 
D4969, tape device handler module 
description 1-82 



E-conversion (Ew.d) L-150 
EBFLCVT, EBDIC to floating-point 
conversion 1-205 

module description 1-80 
EC control echo mode, $IAMUT1 

command U-240 
ECB task control statement 

coding description L-107 
internals 1-55 
overview L-42, S-30 
with SBIOCB 1-128 
EDIT 

begin editing source data, 

SEDIT1/N command U-174 
create or change data set, 

$FSEDIT option U-214 
enter edit mode, $F0NT 

command U-205 
enter edit mode, $IMAGE 
command U-251 
edit data set subroutine examples, 

text editor 1-326 
editor subcommands, $EDIT1/N 

U-182 
EDL (see Event Driven Language) 
compiler ($EDXASM) U-356 
instruction format 1-67 
interpreter, EDXALU, module 

description 1-77 
operation codes 1-67 
EDXALU Event Driven Language 
interpreter description 1-5, 
1-77 
EDXFLOAT floating-point operations 

module description 1-79 
EDXINIT supervisor initialization 
control module 1-15 
description 1-81 
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EDXLIST host listing formatter 

U-383 
EDXSTART supervisor initialization 

task module description 1-81 
EDXSVCX/EDXSVCXU task supervisor 



^y 



trans, support desc 

data tables* 
1-75 

timer feature 
1-80 
module 



1-5, 



card 



U-16 



L-110, 



1-13, 



addr . 
1-76 
EDXSYS system 

descri pti on 
EDXTIMER 7840 

module description 
EDXTIMR2 4952 timer 

description 1-80 
EDXTIO terminal I/O 

EDXTIO/EDXTIOU module 

description 1-78 
internals 1-105 
EJECT listing control statement 
coding description L-109 
overview L-28 
eject printer page 

$E operator command 
ELSE program sequencing 
i nstruct i on 

coding description 

L-178 
overview L-34 
emulator (see 

supervi sor/emulator) 
emulator command table 

1-282, 1-301 
emulator functional flow 1-69 
emulator setup routine 1-67 

command table 1-13, 1-282, 
1-301 
EN end program, $IAMUT1 command 

U-235 
END 

SLINK control record U-396 
option selection, $EDXASM 

command U-358 
option selection, $EDXLIST 

command U-371 
option selection, $S1ASM 

U-378 
primary command input, SFSEDIT 

primary command U-221 
task control statement 

coding description L-lll 
overview L-42 
end display, EP $DIC0MP 

subcommand U-118 
end-of-file, indicating with 

SETEOD S-324 
ENDATTN task control instruction 
coding description L-112 
overview L-42, S-30 
ENDDO program sequencing 
i nstructi on 

coding description L-103, 

L-113 
overview L-34 
ENDIF program sequencing 
i nstructi on 

coding description L-114, 

L-178 
overview L-34 
ENDPROG task control statement 
coding description L-115 
overview L-42, S-30 
ENDSEQ Indexed Access Method CALL 
coding description L-334 
overview L-27, S-147 
return codes L-335 



ENDSPOOL switch spool to print, 

$RJE2780/$RJE3780 C-75 
ENDTASK task control instruction 
coding description L-116 
overview L-42, S-30 
ENQ task control instruction 
coding description L-117 
internals 1-60 
overview L-42, S-33 
supervisor function 1-45 
ENQT terminal I/O instruction 
S-293 

coding description L-119 
overview L-44, S-47 
enqueue, task supervisor function 

(see ENQ) 
entering and editing source state- 
ments S-66, U-192 
entry points, supervisor 
Version 1.1 S-347 
Version 2 S-357 
ENTRY program module sectioning 
statement 

coding description L-121 
overview L-33 
EOF Cend-of-file) L-74 
EOJ end of job, $JOBUTIL command 

U-276 
EOP end of nested procedure, 

$J0BUTIL command U-276 
EOR data manipulation instruction 
coding description L-122 
overview L-19 
EOT (end-of-tape) L-41 
EP end display, $DIC0MP 

subcommand U-118 
EQ (equal) L-34 
EQU data definition instructi 
coding description L-124 
overview L-17 
equate tables 

$EDXASM compiler common a 

1-214 
BSCDDB, BSC line control 

block 1-291 
CCB, terminal control bio 

1-292 
DDB, disk/diskette contro 

block 1-308 
DDB for sensor I/O 1-309 
DSCB, data set control bl 

1-311 
emulator command table I 

1-301 
Indexed Access Method A- 
parameter and control bio 

L-ll 
program header 1-312 
referencing 1-30 
supervisor 1-279, 1-313 
TCB, task control block 
ERASE terminal I/O instructio 
coding description L-126 
overview L-44, S-47 
error codes (see return codes) 
error handling 

I/O error logging S-270 
Indexed Access Method error 

exit S-178 
Remote Management Utility 

C-277 
software trace S-265 
task error exit S-33, S-268 
terminal I/O L-44 
ERRORDEF L-12 
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ERRORS list error option 
$EDXASM command U-358 
$EDXLIST command U-370 
estimating storage (see storage 

estimati ng) 
event control block (see ECB) 
Event Driven Language (see EDL) 
EX exercise tape, $TAPEUT1 com- 
mand U-319 
EXEC function C-220, 1-166, 1-178 
EXEC load and execute program, 

$J0BUTIL command U-277 
execute program 

EXEC function C-220 
PASSTHRU function C-225 
SHUTDOWN function C-251 
utilities (session manager) 
S-216 
executing, task supervisor exe- 
cution state 1-43 
exercise tape, EX $TAPEUT1 

command U-319 
EXFLIH command start 1-125 
EXIO control instruction 

coding description L-128 
EXIODDB device data block 

description 1-123 
internals 1-125 
overview L-24, S-51 
EXIOCLEN, EXIO termination module 

1-126 
EXIODEV configuration statement 

S-82 
EXIOINIT, system initialization 

1-125 
EXOPEN EXIO control instruction 
coding description L-129 
internals 1-125 
interrupt codes L-132 
overview L-24 
return codes L— 131 
external sync DI/DO, XI/XO $I0TEST 

command U-266 
EXTRACT, Indexed Access Method 
CALL 

coding description L-336 
overview L-26, S-148 
return codes L-337 
EXTRN program module sectioning 
statement 

coding description L-134 
overview L-33 
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location A-20 

map provided by FCBEQU S-155 
FCBEQU Indexed Access Method copy 

code module L-12, S-155 
FDIVD data manipulation 
i nstructi on 

coding description L-137 
overview L-19 
return codes L-138 
FETCH Host Communications 

Facility, TP operand C-92 
fetch record ($PDS) S-261 
fetch status, FE $HCFUT1 command 

C-110 
file L-75 

backward space file (BSF) 

L-75 
control area (see FCA) 
control block (see FCB) 
definition L-40 
forward space file (FSF) 
manager, Multiple Terminal 

Manager M-8 
tape control commands 
FILEIO, Multiple Terminal 
CALL 

coding description C- 

L-367 
internals M-9 
overview C-118, L-29 
FIND 

editor commands 

character string, 

subcommand U-191 
character string, $FSEDIT 
primary command U-222 
program sequencing 
i nstructi on 

coding description L-139 
overview L-34 
FINDNOT program sequencing 
i nstructi on 

coding description L-141 
overview L-34 
FIRSTQ queue processing 
i nstructi on 

coding description L-143 
overview L-37, S-32 
fixed-head devices S-61 
fixed storage area, contents 
floating-point 

arithmetic instruction 
equates 1-283, 1-303 
arithmetic instructions 
binary conversions 1-205 
command entries module, 

NOFLOAT, description 1-79 
operations module, EDXFLOAT, 

description 1-79 
return codes L-21 
FMULT data manipulation 
i nstructi on 

coding description 
overvi ew L-19 
return codes L-145 
format 

illustrated L-5 
instruction (general) L-3 
FORMAT data formatting statement 
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conversion of alphameric data 

L-153 
conversion of numeric data 

L-148 
data conversion specifica- 
tions L-146 
module names L-18 
multiple field format L-155 
overview L-18 
repetitive specification 

L-155 
using multipliers L-155 
X-type format L-154 
formatted screen images S-300, 

U-250 
formatting instructions^ data 

L-18 
forms control 

burst output with electronic 

di splay screens L-46 
forms interpretation L-46 
output line buffering L-46 
parameters^ terminal I/O L-44 
terminal I/O L-45 
FORTRAN IV 

execution requirements S-24 
link editing S-71 
overview S-6 
program preparation 
requirements S-24 
use with Multiple Terminal 
Manager C-197 
FPCONV data manipulation 
i nstruct i on 

coding description L-157 
overview L-19 
free pool in Indexed Access 

Method L-27 
free space 

definition S-148 
estimating S-168 
in Indexed Access 
free space entry 1-90 
FREEMAIN storage allocation 

function 1-25 
FSE free space entry 1-90 
FSR (forward space record) 
FSUB data manipulation 
i nstructi on 

coding description L-159 
index registers L-160 
overview L-19 
return codes L-160 
FTAB/ Multiple Terminal Manager 
CALL 

coding description C-138/ 

L-372 
overview C-124/ L-31 
return codes L-373 
full-screen static configuration 

S-293 
full-screen text editor host and 

native/ $FSEDIT U-209 
full-word boundary requirement 
DO L-34 
IF L-34 
PROGRAM L-225 
function process overlays 1-162 
function process subroutines 
1-162/ 1-170 

new subroutines 1-187 
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GE (greater than or equa 
general instruction form 
generating the supervise 
GENxxxx macro 1-120 
GET Indexed Access Metho 
coding description 
overview L-27/ S-14 
return codes L-340 
GETEDIT data formatting 
i nstructi on 

coding description 
overview L-18 
GETMAIN storage allocati 

instruction 1-25 
GETPAR3 1-69 
GETSEQ Indexed Access Me 
coding description 
overview L-27/ S-14 
return codes L-343 
GETSTORE TERMCTRL functi 
GETTIME timing instructi 
coding description 
overview L-50/ S-32 
GETVAL subroutine, $EDXA 
GETVALUE terminal I/O in 
coding description 
overview L-44/ S-47 
GIN graphics instruction 
coding description 
overview L-26 
global area, SEDXASM I- 
GLOBAL ATTNLIST L-61 
GO activate stopped task 

command U-93 
GOTO 

change execution seq 

$DEBUG command U-9 

coding sequencing in 

coding descripti 

overview L-34 

graphi cs 

conversion algorithm 
functions overview 
hardware considerati 

C-300 
instructions L-26 
CONCAT L-72 
GIN L-172 
PLOTGIN L-210 
SCREEN L-270 
XYPLOT L-324 
YTPLOT L-325 
requirements L-26 
terminals S-46 
uti 1 i t i G5 
$DIC0MP 
SDIINTR 
$DIUTIL 
sessi on 

U-40 
summarized S-64 
GT (greater than) L-34 
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H-conversion L-152 

hardcopy function for terminals 

PF6 1-114, U-7 
hardware levels S-30 
HCF (see Host Communications 

Faci 1 i ty ) 
HDR1 tape label S-239 
header labels, tape S-235 
header record 

Remote Management Utility 
C-209 
header record format, text editor 

1-323 
HELP list debug commands, $DEBUG 

command U-94 
highei — level index block S-197 
horizontal tabs, defining with 

$IMAGE U-252 
host assembler U-382 
Host Communications Facility 
C-81, 1-153 

data set naming conventions 

C-82 
Program Preparation 

System/370 1-153, U-382 
TPCOM module description 1-81 
utility program, $HCUT1 C-107 
host program, Remote Management 

Utility C-205 
host system considerations C-83 
HOSTCOMM configuration statement 

S-83 
HX display hex words, $DIC0MP 
subcommand U-118 
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mand U-257 
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command U- 
I-conversion (Iw 
I/O device instr 
I/O error loggin 
data set 1 i s 
$DI5KUT2 U 
device table 
invoking S- 
log control 
log data set 
LOG macro 
equates 
syntax 
printing the 
recording th 
tape log ent 
utility, $L0 
I/O functions 
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EXIO control 

summari z 

HOSTCOMM con 
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sensor 1-12 
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tape L-40, L-75 
terminal S-46 
timers L-50, S-32 
I/O instructions 
disk L-22 
diskette L-22 
tape L-40 
IACB indexed access control block 
built by connecting data set 

S-159 
definition A-20 
description A-35 
location A-14 
IAM Indexed Access Method link 

module S-155 
IAMEQU Indexed Access Method copy 

code module L-12, S-155 
IDCB EXIO control statement 
coding description L-175 
overview L-24 
IDCHECK function C-223, 1-166, 

1-177 
identification, verify 
host system C-223 
IDCHECK function C-223 
remote system C-223 
IF program sequence instruction 
coding description L-177 
overview L~34 
II insert block, SFSEDIT line 

command U-231 
IIB interrupt information byte, 

Multiple Terminal Manager C-128 
IM insert member 

SDICOMP subcommand U-118 
$PDS S-257 
image dimensions, define, DIMS 

$IMAGE command U-251 
image store U-205 
immediate action routines 1-46 
binary synchronous access 
- method 1-149 
specifying maximum number 

S-88 
task supervisor 1-48 
immediate data L-4 
IN 

initialize data base, $DIUTIL 

command U-157 
insert or delete elements, 
SDICOMP command U-107 
INCLUDE $LINK control record 

U-398 
INCLUDE statement requirement 

(EXTRN) L-134 
index block A-20, A-33 

overvi ew S-151 
index entry A-12 
index record contents, text 

editor 1-323 
i ndex regi sters 

floating-point operations 

using L-21 
integer operations using L-19 
software introduction L-6 
indexed access control block (see 

IACB/ICB) 
Indexed Access Method L-26, L-327 
$IAM load module S-155 
$IAMUT1 utility U-235 
overview S-148 
parameters S-187 
used in data set 
reorganization S-166 
application program 
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preparat i on 

$J0BUTIL procedure S-158 
link edit control S-158 

CALL instruction syntax L-68, 
S-146 

CALL processing A-4 

coding instructions L-327 

control block linkages A-15 

control flow A-3 

data block location 
calculation A-9 

devices supported by S-146 

diagnostic aids A-10 

I/O requests 

DELETE L-329, S-147 
DISCONN L-332, S-148 
ENDSEQ L-334, S-147 
EXTRACT L-336, S-148 
GET L-338, S-147 
GETSEQ L-341, S-147 
LOAD L-344, S-147 
PROCESS L-347, S-147 
PUT L-350, S-147 
PUTDE L-352, S-147 
PUTUP L-354, S-147 
RELEASE L-356, S-147 

IAM link module S-155 

operation S-148 

overview L-27 , S-145 

performance S-205 

program preparation procedure 
S-155 

record processing A-6 

request processing A~5 

request verification A-10 

storage requirements S-204 
indexed appli cat i ons, planning and 
desi gni ng 

connecting and disconnecting 
data sets S-159 

handling errors 

data-set-shut-down condi- 
tion S-179 
deadlocks S-180 
error exit facilities 

S-178 
long-lock-time condition 

S-180 
system function return 
codes S-179 

loading base records S-160 

processing indexed data sets 
delete S-165 
direct read S-161 
direct update S-162 
extract S-165 
insert S-146 
sequential read S-162 
sequential update S-146 

resource contention S-181 
indexed data set 

base records S-149 

building U-247 

concatenating with ALTIAM 
subroutine S-167 

control block arrangement A-8 

creation with $IAMUT1 utility 
U-236 

formatting S-187 
procedure S-156 

design A-7 

determining size and format 
U-247 

format 

blocks S-192 



cluster S-200 

data block S-194 

file control block (FCB) 

S-151, S-194 
free blocks S-200 
free pool S-203 
free records S-200 
free space S-184 
highei — level index block 

S-197 
index S-195 
index block S-194 
introduction S-151 
last cluster S-203 
primary-level index block 

(PIXB) S-152, S-195 
relative block number 

(RBN) S-152 
reserve blocks S-201 
reserve index entries 

S-202 
second-level index block 

(SIXB) S-152, S-197 
sequential chaining S-203 
loading and inserting records 

S-150 
mai ntenance 

backup and recovery S-165 
deleting S-167 
dumping S-167 
recovery without backup 

S-166 
reorganization S-166 
overview S-148 
physical arrangement A-8 
preparing the data 

defining the key S-166 
estimating free space 

S-168 
selecting the block size 
S-167 
putting records into S-149 
RBN, relative block number 

A-7, A-12 
record locking S-146, S-160 
verification A-ll 
indexed data set, defining U-237 
indexed file (see Indexed Access 

Method) 
indexing, address feature L-6 
initial program load (see also 

IPL) 1-15 
i ni tialization 

automatic application S-129 
disk (4962) U-68, U-73 
disk (4963) U-68, U-78 
diskette (4964,4966) U-68 
libraries, $INITDSK utility 

U-256 
modules 1-16 
nucleus 1-15 
Remote Management Utility, 

internals 1-166, 1-171 
tape, $TAPEUT1 utility U-322 
task 1-15 
initialize data base, IN $DIUTIL 

command U-157 
initializing secondary volumes 

S-132 
INITMODS, initialization modules 

1-16 
INITTASK, initialization task 

1-15 
input, terminal I/O L-46 
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IM SDICOMP subcommand 
address register (see 
and statements - over- 



Input Buffer, Multiple Terminal 
Manager C-116 

contents during 4978/4979/3101 

buffer operation C-129 
description C-116 
input data parsing, description 

of 1-218 
Input Error function 1-166, 1-182 
input/output (see I/O) 
input output control block (see 

IOCB) 
INPUT switch to input mode, 

SEDIT1/N editor subcommand U-192 
i nsert 

block, II $FSEDIT line com- 
mand U-231 
elements, IN SDICOMP command 

U-107 
line, I $FSEDIT line command 

U-229 
member, 
U-118 
i nstruct i on 

IAR) 
i nstruct i on 
view L-15 
instruction definition and 
checking ($EDXASM) 1-241 
instruction format, Event Driven 

Language 1-67, L~3 
instruction format, general L~3 
instruction operands L-3 
integer and logical instructions 

L-19 
interactive program debugging 

S-67, U-82 
interface routines, supervisor 

1-61 
i nterprocessor communications 

C-29 
interprogram dialogue S-282 
interrupt, from EXIO device 1-125 
interrupt information byte (see 

IIB) 
interrupt line S-313 
interrupt servicing 1-46, 1-113 
INTIME timing instruction 

coding description L-181 
overview L-50, S-32 
introduction to EDL L-l 
invoking the loader 1-23 
invoking the session manager U-27 
invoking the utilities U-47 
IOCB terminal I/O instruction 
coding description L-183 
constructing, for formatted 

screen ($IMDEFN) S-301 
overview L-44, S-47 
structure S-296 
terminal I/O instruction 

L-183 
TERMINAL statement converted 
to S-96 
IODEF sensor based I/O statement 
U-364 

coding description L-185 
overview L-39, S-51 
SPECPI - process interrupt 
user routine L-189 
IOLOADER, function of 1-127 
IOLOADER/IOLOADRU sensor based I/O 

init. module desc. 1-78 
IOR data manipulation instruction 
coding description L-191 
overview L-19 



IPL 

automatic application initial- 
isation and restart S-129 
messages U-421 

date and time U-425 
IPL operation U-421 
load utility location 

U-424 
sensor I/O status check 

U-424 
storage map generation 

U-423 
tape initialization U-423 
volume initialization 
U-422 
procedure U-421 
IPLSCRN, Multiple Terminal 
Manager C-125 
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job U-278 

job control sta 

JOB job identif 

command U-278 
job stream proc 

S-69, U-271 
job stream proc 

(session manag 
JP 

jump ($PDS) 

to address, 

subcommand 

JR jump referen 

subcommand U- 
JUMP, $J0BUTIL 
jump reference, 

subcommand U- 
jump to address 

subcommand U- 



tement U-278 
ier, $J0BUTIL 

essor, $J0BUTIL 

essor uti 1 i ti es 
er) S-216 

S-255 

$DIC0MP 
U-118 
ce, $DIC0MP 
118 
command U-279 

JR $DIC0MP 
118 

, JP $DIC0MP 
118 
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program function (PF) 

tasks, tei — 
for 4978, 
keys 



key (see 

keys 
keyboard and ATTNLIST 

minal I/O L-47 
keyboard define utility 

$TERMUT2 U-339 
KEYS list program function 

SIMAGE command U-253 
keyword operand L-5 



LA 

display directory, $DIUTIL 

command U-158 
list all members, $DISKUT1 

command U-135, U-136 
list terminal assignment, 

$TERMUT1 command U-336 
label L-3 

field L-3 

syntax description L-4 
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LABEL end jump, SJOBUTIL command 

U-280 
labels, tape (see tape) 
LABELS subroutine, $EDXASM 1-238 
LACTS list all members CTS mode, 

$DISKUT1 command U-135 
language control data set, 

$EDXASM 1-221, U-357 
LASTQ queue processing 
i nstructi on 

coding description L-191 
overview L-37, S-32 
layers, terminal I/O 1-108 
LB display characters 

$DICOMP display character sub- 
command U-119 
$PDS S-252 
LC load control store, STERMUT2 

command U-342 
LD 

list all hardware devices, 

$I0TEST command U-269 
list data members, $DISKUT1 
command U-138 
LDCTS list data members CTS mode, 

$DISKUT1 command U-135 
LE (less than or equal) L-34 
level status block (see LSB) 
LEW0RK1 work data set for $LINK 

U-400 
LEW0RK2 work data set for $LINK 

U-400 
LH display member header, $DIUTIL 

command U-159 
LI 

draw line $DIC0MP subcommand 

U-120 
draw line $PDS S-253 
load image store, $TERMUT2 
command U-342 
1 ibrary 

definition S-52 
directory, disk or diskette 

1-87 
origin S-60 
line 

commands, $FSEDIT U-229 
continuation, source 

statement L-4 
editing, $EDIT1/N U-203 
pointer reposition (see move 

line pointer) 
source line continuation 
U-361 
LINK, Multiple Terminal Manager 
CALL 

coding description C-131, 

L-374 
internals M-9 
overview C-115, L-29 
link edit process, $LINK U-394 
autocall option U-393 
building an EDX supervisor 

U-394 
combining program modules 

U-392 
control records U-396 
elimination of duplication 

control sections U-393 
formatting modules for 

$UPDATE U-392 
input to $LINK U-396 
multiple control sections 

U-392 
object module record format 



U-407 
output from $LINK U-403 
storage map U-393 
link edit program object modules 

U-390 
link module, Indexed Access 

Method S-155 
linkage editor S-71, U-353 
LINKON, Multiple Terminal Manager 
CALL 

coding description C-132, 

L-376 
internals M-9 
overview C-115, L-29 
list 

active programs, $A operator 

command U-ll 
breakpoints and trace ranges, 

BP $DEBUG command U-92 
characters, LB $DIC0MP 

subcommand U-119 
data members, LD SDISKUT1 

command U-138 
data members, LDCTS $DISKUT1 

command U-135 
data set 

BROWSE $FSEDIT option 

U-213 
LP $DISKUT2 command U-143 
LU $DISKUT2 command U-146 
status, ST $DIUTIL 
command U-162 
date/time, $W operator 

command U-25 
date/time, TD $DIC0MP 

subcommand U-124 
devices, LD $I0TEST command 

U-269 
end, EP $DIC0MP subcommand 

U-117 
error specification, ERRORS 

$EDXASM command U-358 
hardware configuration, LD 

$I0TEST command U-264 
insert mask, MASK $FSEDIT line 

command U-232 
member, LM $DISKUT1 command 

U-138 
member, PR $DIC0MP command 

U-108 
member header, LH $DIUTIL com- 
mand U-159 
members, all 

LA $DISKUT1 command U-135 
LA $DIUTIL command U-158 
LACTS $DISKUT1 command 
U-135 
processor program, $EDXLIST 

U-370 
program function key codes, 

$PFMAP utility U-301 
program function keys, KEYS 

$IMAGE command U-253 
program members, LP $DISKUT1 

command U-139 
program members, LPCTS 

$DISKUT1 command U-135 
status of all tasks, WHERE 

$DEBUG command U-102 
storage, $D operator command 

U-15 
termi nal 
names/types/addresses, LA 
$TERMUT1 command U-335 
variables, VA ODICOMP 
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$FSEDIT 
$DEBUG 

command 



subcommand U-125 
volume information, VI $I0TEST 
command U-270 
LIST commands 
data set 

LIST $EDIT1/N command 

U-193 
LIST $FSEDIT option U-217 
display lines of text, 
$EDIT1/N editor subcommand 
U-193 
display storage or registers, 

$DEBUG command U-95 
lines of text, LIST $EDIT1/N 

editor command U-176 
list device option, $EDXASM 

command U-358 
list device option, $EDXLIST 

command U-370 
obtain full listing, LIST 

$EDXASM command U-358 
print data set, $EDIT1/N 

command U-176 
print data set, 

option U-217 
registers, LIST 

command U-95 
storage, LIST $DEBUG 
U-95 
listing control functions U-29 
listing control instructions 
EJECT L-109 
overvieN L-28 
PRINT L-216 
SPACE L-275 
TITLE L-308 
LISTP list to $SYSPRTR, 

command U-135 
LISTT list to terminal, 

command U-135 
LL list log data set, $DISKUT2 

command U-145 
LM list member, $DISKUT1 command 

U-138 
LO load indexed file, $IAMUT1 

command U-241 
LOAD 

Indexed Access Method CALL 

coding description L-344 
connect file S-159 
overview L-27, S-146 
return codes L-346 
task control instruction 

coding description L-194 
internals 1-24 
overview L-42 
return codes L-199 
used with automatic 

initialization S-129 
used with overlays S-40 
load mode S-149 
load point defined L-40 
load program 

$L operator command 1-23, 

U-17 
automatic initialization 

S-129 
EXEC $J0BUTIL command U-277 
loading overlays 1-22 
loading programs 1-19 
locate data sets and overlay 

programs, $PREFIND U-302 
LOCATE locate requested line 
number $FSEDIT primary comman 
U-223 



$DISKUT1 
$DISKUT1 



S-271 



U-292 
S-324 



location dictionary 1-250 
lock 

locks, block and record A-16 

locks, file A-17 

record S-146 
LOCK TERMCTRL function L-288 
LOG 

I/O error logging macro 

job processor commands, 
$J0BUTIL command U-281 
log data set for I/O errors 
logical end-of-file on disk 
logical screens S-293 
logon menu for session manager 

S-212, U-27 
long-lock-time condition S-180 
low storage 

during IPL 1-16 

during program load 1-20 
LP 

list data set on printer, 
$DISKUT2 command U-144 

list program members, $DISKUT1 
command U-139 
LPCTS list program members CTS 
mode, $DISKUT1 command U-135 
LR draw line relative 

$DIC0MP subcommand U-121 

$PDS S-257 



LS 



$DISKUT1 command 



LSB 



list space, 

U-140 
list supervisor configuration* 

$I0TEST command U-270 
level status block 1-52, 
U-427 
LT (less than) L-34 
LU list data set on console, 

SDISKUT2 command U-146 
LV list through volumes, $DISKUT1 
U-141 
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M move line, 

U-233 
macro assembler 

i nternal overvi 

1-253 
overview S-9 
macro library S-6 
macro library/host 
magazine diskette ( 
diskette magazine 
magnetic tape (see 
MASK display insert 
line command U-23 
master control bloc 
Mathematical and Fu 
routine Library S 
MCB master control 
$PDS S-260 
definition A-2 
description A- 
MD move data base, 

command U-160 
member area S-250 
member control bloc 
MENU 

Multiple Termin 
CALL 

coding desc 



$FSEDIT line command 



ew $S1ASM 



S-5 
see 4966 
uni t) 
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mask, SFSEDIT 
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L-377 
internals M-9 
overview C-116, L-29 
return to primary option, 
SFSEDIT U-223 
menu-driven U-2 
menus 

(see option selection menu) 
(see parameter selection 
menu) 
(see primary menu) 
(see primary option menu) 
(see secondary option menu) 
(see session manager, menus) 
(see transaction selection 
menu) 
MENUSCRN, Multiple Terminal Manag- 
er C-126 
MERGE merge data, SFSEDIT option 

U-217 
message, PRINTEXT instruction 

L-217 
message sending utility, $TERMUT3 

U-344 
messages U-421 
error U-427 

$DUMP U-431 
$L0G U-432 
$RMU U-433 
STRAP U-435 
program check U-427 
system program check 
U-429 
IPL (see IPL messages) 
Multiple Terminal Manager 

C-178 
Remote Management Utility 
C-279 
minimum execution system config- 
uration S-22 
minimum program preparation 

requirements S-22 
mirror image 

description C-7, S-109 
in TERMINAL configuration 
statement S-101 
mixed precision combinations L-20 
MM move block, SFSEDIT line 

command U-233 
modified data S-307 
modify character image tables 

U-339 
modify character string* CHANGE 
$EDIT1/N editor subcommand 

U-184 
$FSEDIT primary command U-219 
modify default storage allocation, 

$DISKUT2 U-149 
modifying an existing data set, 

$FSEDIT U-215 
modifying TERMINAL statement for 

new I/O terminal 1-119 
module descriptions 
$S1ASM 1-269 
supervisor 1-75 
module names and entry points, 
supervi sor 

Version 1.1 S-347 
Version 2 S-357 
move 

block, MM $FSEDIT line com- 
mand U-233 
line pointer 

BOTTOM $EDIT1/N editor 
subcommand U-183 



DOWN $EDIT1/N editor 

subcommand U-189 
TOP $EDIT1/N editor 

subcommand U-200 
UP $EDIT1/N editor 
subcommand U-201 
tape U-324 
text 

$EDIT1/N editor subcom- 
mand U-195 
$FSEDIT line command 
U-233 
volumes on disk or diskette, 
$M0VEV0L utility U-294 
MOVE data manipulation 
i nstructi on 

coding description L-201 
overview L-19 
MOVEA data manipulation 
i nstructi on 

coding description L-204 
overview L-19 
MOVEBYTE subroutine, SEDXASM 

1-236 
MP 

move beam, $DIC0MP subcommand 

U-121 
move position ($PDS) S-253 
MT move tape, $TAPEUT1 command 

U-324 
MTMSTORE file, Multiple Terminal 

Manager C-120, C-171, M-12 
MTMSTR, Multiple Terminal Manager 

C-169, C-170, M-12 
multiple field format L-155 
multiple program execution 1-36 
multiple program structure S-26 
multiple-task programs 1-33 
Multiple Terminal Manager 

accessing the terminal envi- 
ronment block C-139, M-22 
application program C-116 
application program languages 

L-30 
application program manager 

C-119, M-4 
automatic OPEN/CLOSE C-140, 

M-8 
CALL 

ACTION C-130, L-360 
BEEP C-137, L-361 
CDATA C-139, L-362 
CHGPAN C-135, L-364 
CYCLE C-132, L-365 
FAN C-139, L-366 
FILEIO C-141, L-367 
FTAB C-138, L-372 
LINK C-131, L-374 
LINKON C-132, L-376 
MENU C-137, L-377 
SETCUR C-137, L-378 
SETPAN C-134, L-379 
WRITE C-133, L-381 
coding instructions L-359 
components C-123, M-4 
considerations for 3101 

terminal C-122 
data files C-120 

MTMSTORE file C-120, 

C-171, M-12 
PRGRMS volume C-120, 

C-173 
SCRNS volume C-120, C-173 
TERMINAL volume C-120, 
C-171 
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direct file request types 

C-144, L-370 
disk file support C-140 
distribution and installation 

C-161 
dynamic screen modification 

and creation C-136 
file control area C-142 
file I/O considerations (Event 

Driven Executive) C-146 
file management C-118, M-8 
FILEIO, disk file support 

C-140 
FILEIO Indexed Access Method 

considerations C-148 
fixed screen formats C-125 
functions (callable routines) 

C-117, C-124 
indexed file request types 

C-144, L-369 
indexed file support C-140, 

L-367 
initialization programs 
C-119, C-158, M-4, M-6 
Input Buffer C-116, C-127 
Input Buffer Address C-116 
Input Buffer during 
4978/4979/3101 buffer oper- 
ation C-127 
interrupt information 

C-128 
messages C-178 
module list M-4 
operation C-115 
Output Buffer C-116 
Output Buffer Address 
Output Buffer during 
4978/4979/3101 buffer 
ation C-128 
overview L~29, S-10 
program management C 
program preparation 
COBOL C-166 
Event Driven Language 

C-164 
FORTRAN C-165 
PL/I C-167 
programming considerations 
COBOL C-153 
Event Driven Language 

C-151 
FORTRAN C-152 
PL/I C-155 
return codes (FILEIO) C-145, 

L-371 
screen definition C-121 
screen formats C-125 
IPLSCRN C-125 
MENUSCRN C-126 
SCRNSREP C-126 
SIGNONSC C-126 
screen panel manager M-7 
SIGNON/STGNOFF C-156 

SIGNONFL C-174 
storage requirements C-168 
swap out data set C-116 
system generation 
considerations C-169 
data set requirements 

C-171, C-175 
volume requirements C-169 
terminal environment block 

(TEB) C-128, M-13 
TERMINAL file C-124, C-172 
terminal manager C-121 
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terminal/screen 

C-117 
terminal server 
terminal suppor 
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appl i cat i ons 
user applicatio 

C-124 
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DISCONNECT 
speci f i ed 
C-159 
programs re 
RECONNECT t 
speci f i ed 
C-159 
screens rep 
terminal ac 
C-159 
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tables M-ll 
buffer area 
common area 
f i le table 
MTMSTORE da 
program tab 
screen tabl 
terminal en 
(TEB) M-l 
terminal ta 
MULTIPLY data manip 
i nstructi on 

coding descript 
overview L-19 
preci si on table 
mult i programmi ng 

automatic appli 
ization S-129 
design feature 
multitasking 1-42 
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NE (not equal) L- 
newline subroutine 

1-112 
NEXTQ queue proces 
instructi on 

coding descrip 

overview L-37 

NOFLOAT floating-p 

entries module de 

NOLIST no list opt 

command U-358 
NOMSG message supp 

SJOBUTIL command 
non-compressed byt 
non-labeled tapes 
description S 
layout S-242 
processing S- 
NOTE disk/tape I/O 
coding descrip 
overview L-22 
notify of an event 
NQ reset prompt mo 

command U-64 

nucleus initializa 

null character U- 

NULL define null r 

$IMAGE command U 
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, S-32 
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null representation; defining 

U-253 
number representation conversion 

(see conversion) 
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object data set for $EDXASM U-357 
object module record format* 

$LINK U-407 
object text elements, format of, 

$EDXASM 1-215 
OFF (set tape offline) L-75 
OFF remove breakpoints and trace 

ranges, $DEBUG command U-97 
OLE operand list element, $EDXASM 
format of 1-216 
in instruction parsing 

($EDXASM) 1-220 
used in $IDEF 1-241 
online debug aids S-67 
op (operation field) L-3 
OPCHECK subroutine, $EDXASM 1-232 
opcode table, instruction parsing 

($EDXASM) 1-220, 1-223 
open a data set 

disk or diskette 1-90 
tape 1-99 
open EXIO device, EXOPEN 1-125 
open member ($PD5) S-261 
OPENIN Host Communications 

Facility, TP operand C-93 
OPENOUT Host Communications 
Facility, TP operand C-94 
operands 

defined L-3 
keyword L-5 

parameter naming (Px) L-8 
operating conventions, supervisor 

program 1-67 
operating environment S-22 
operation code, instruction 

parsing ($EDXASM) 1-220 
operation codes, Event Driven 

Language 1-68 
operations using index registers 

L-20 
dperator commands S-63, U-9 
operator signals, terminal I/O 

L-49 
option selection menu U-33 
optional features support L-15 
OTE define object text element 

SEDXASM instruction 1-227 
OUTPUT $LINK control record U-399 
Output Buffer, Multiple Terminal 
Manager C-116, C-128 

contents during 4978/4979/3101 

buffer operation C-129 
definition M-29 
overflow L-20 
overlay function processor table 

1-167, 1-220 
overlay program S-40 

instructions, $EDXASM 1-259 
loading 1-22 
locating, $PREFIND U-302 
subroutines, $EDXASM 1-231 
user 1-38 
overlay program execution 1-38 
overlay selection, instruction 
parsing ($EDXASM) 1-223 



overlay table 1-167, 1-220 
overvi ew 

data definition statements 

L-17 
data formatting instructions 
L-18 

data format module names 
L-18 
data manipulation 
instructions L-19 

data representation L-19 
mixed-preci si on 

operations L~20 
operations using index 

regi sters L-20 
overflow L-20 
vector L-19 
disk I/O instructions L-22 
EXIO control instructions 

L-24 
floating-point arithmetic 

L-20 
floating-point arithmetic 
instructions L~20 

data representation L~21 
operations using index 

regi sters L-21 
return codes L-21 
graphics instructions L-26 
Indexed Access Method 

instructions L-27 
instructions and statements 

L-15 
integer and logical 
instructions L-19 
listing control statements 

L-28 
Multiple Terminal Manager 

instructions L-29 
program control statements 

L-32 
program module sectioning 

statements L-33 
program sequencing 

instructions L~34 
queue processing L-37 
sensoi — based I/O statements 

L-39 
single-precision L-19 
system configuration 

statements L-39 
tape I/O instructions L-40 
task control instructions 

L-42 
terminal I/O instructions 

L-44 
timing instructions L-50 



P/I (see process interrupt) 
PA patch, $DISKUT2 command U-147 
page eject S-63, U~16 
parameter equate tables L-ll 
parameter naming operands in the 

instruction format L-8 
parameter passing, Remote 

Management Utility C-212 
parameter selection menu U-33 
parameter tables, control block 

and L-ll 
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PARM program parameter passing, 

$J0BUTIL command U-283 
parsing, input data ; ($EDXASM) 

1-218 
partition assignment changing, $CP 

operator command U-14 
partitioned data sets S-247 
partitions S-42 
PA5STHRU function 

conducting a session C-227 
establishing a session C-225 
internals 1-166, 1-179 
overview C-225 
programming considerations 

C-237 
sample program C-265 
types of records C-232 
virtual terminals C-239 
Passthru record C-209 
patch 

disk/diskette, PA $DISKUT2 

command U - 147 
Remote Management Utility 

defaults C-283 
storage, $P operator command 

S-63, U-18 
storage or registers, PATCH 
$DEBUG command U-98 
PATCH modify storage or registers, 

$DEBUG, command U-98 
PAUSE operator intervention, 

$J0BUTIL command U-284 
PC plot curve 

$DIC0MP subcommand U-119 
from plot curve data member 
($PDS) S-255 
PD pulse DO, $I0TEST command 

U-265 
PF,code TERMCTRL function L-288 
PF keys (see program function 

keys) 
phase execution and loading, 

$S1ASM 1-255 
PI process interrupt (see process 

interrupt) U-267 
PID program directory S-27 
PIXB (see primary-level index 

block) 
PL/I 

execution requirements S-24 
link editing S-71 
overview S-8 
program preparation 
requirements S-23 
supported by Multiple Terminal 
Manager C-200 
PL plot data, $DIC0MP subcommand 

U-122 
plot control block (see PLOTCB) 
plot curve data member ($PDS) 

S-251 
PLOTCB graphics plot control 

block L-210 
PLOTGIN graphics instruction 
coding description L-210 
overview L-26 
POINT 

disk/tape instruction 

coding description L-212 
overview L~22, S-54 
point-to-point (BSC) S-65 
point-to-point vector drawing 

S-46 
POST 

post an event, $DEBUG command 



U-100 
task control instruction 

coding description L-213 
internals 1-58 
overview L-42, S-34 
supervisor function 1-46 
power outage, restoring after 

S-129 
PR print member, $DIC0MP command 

U-108 
preci si on L - 19 

floating-point arithmetic 

L-21 
integer and logical L-19 
precision combinations, 
allowed L-20 
precision table 
ADD L-53 
ADDV L-54 
DIVIDE L-101 
MULTIPLY L-206 
overview L-20 
SUBTRACT L-284 
prefind U-302 
PREPARE IDCB command L-175 
PRGRMS volume, Multiple Terminal 

Manager C-120, C-173 
primary 

commands, $FSEDIT U-218 
option menu, $FSEDIT U-213 
option menu, session manager 

S-218, U-35 
task 

internals 1-29 
overview S-29 
volume S-60 
primary-level index block 
description S-195 
overview S-151 
PRINDATE terminal I/O instruction 
coding description L-215 
overview L-44, S-47 
timei — related instruction 
S-33 
PRINT listing control statement 
coding description L-216 
overview L-28 
print member, PR $DIC0MP command 

U-108 
PRINTEXT terminal I/O instruction 
coding description L-217 
overview L-44, S-47 
return codes L-219 
PRINTIME terminal I/O instruction 
coding description L-221 
overview L-44, L-50, S-47 
timer-related instruction 
S-33 
PRINTNUM terminal I/O instruction 
coding description L-222 
overview L-44, S-47 
PRINTON define terminal name, 

$RJE2780/$RJE3780 C-75 
pri ori ty 

assigned to tasks S-29 
design feature S-13 
illustrated S-38 
internals 1-31 
task L-226, L-2S6 
PROC identify nested procedure, 

$J0BUTIL command U-286 
procedures, session manager (see 

session manager) 
PROCESS Indexed Access Method 
CALL 
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coding description L-347 
overview L-27, S-147 
return codes L-349 
process interrupt 

control block (SBIOCB) 1-128 
description S-48 
IODEF statement L-189 
IOTEST command U-267 
supported by sensor I/O S-15 
user routine (SPECPI) L-189 
process mode 

definition S-150 
processing compiler output with 

$LIKK or $UPDATE U-360 
processor status word (see PSW) 
PROGEQU L-13 
program 

equates 1-312 
assembly/compilation U-352 
control L-32 
disabling S-102 
entry (see $FSEDIT, $EDIT1/N) 
function (PF) keys L-47 
internals 1-108 
listing, KEYS $IMAGE 

command U-253 
listing 4978, $PFMAP 

utility U-301 
when using $F0NT edit 

mode U-206 
when using $FSEDIT U-211 
when using $IMAGE edit 

mode U-255 
when using session 
manager U-28 
header 1-30 
identifier, $J0BUTIL command 

U-287 
internal processing 1-30 
library update (see $UPDATE) 
load process, $PREFIND U-302 
loading (see also LOAD) 1-19 
module sectioning functions 

L-33 
organization S-29 
sequencing functions L-34 
structure S-29 
termination, EXIO 1-126 
types 1-32 
program check error messages 

U-427 
program execution via Remote Man- 
agement Ut i 1 i ty 

EXEC function C-220 
PASSTHRU function C-225 
SHUTDOWN function C-251 
PROGRAM identifier, $J0BUTIL 

command U-287 
program preparation 

$EDXASM 1-211, U-356 

$S1ASM 1-253, U-372 

host assembler U-382 

of Remote Management Utility 

1-184 
summary S-18 
usage example S-367 
Program Preparation Facility 
description S-71 
overview S-5 
program preparation utilities 

U-351 
program preparation utilities 

(session manager) 0U-36, S-214 
program/storage manager, Multiple 
Terminal Manager M-4 



program structure 

internals 1-3 

program/task conce 

PROGRAM task contr 

coding descrip 

internals 1-3 

overview L-42 

PROGSTOP task cont 

coding descrip 

overview L-42 

prompting and adva 

terminal I/O L-4 

protected field S 

protocol, BSC tran 

PSW processor stat 

PU PUNCHO/PUNCHS f 

$RJE2780/$RJE3780 

C-76 

pulse a digital ou 

$I0TEST command 
PUNCHO/PUNCHS defi 
$RJE2780/$RJE37S0 
purpose of EDL L- 
PUT Indexed Access 
coding descrip 
overview L-27 
return codes 
PUTDE Indexed Acce 
coding descrip 
overview L-27 
return codes 
PUTEDIT data forma 
i nstructi on 

coding descrip 
overview L-18 
return codes 
PUTSTORE TERMCTRL 
PUTUP Indexed Acce 
coding descrip 
overview L-27 
return codes 
Px L-8 



S-36 
3 

pts 1-29, S-29 
ol instruction 
tion L-225 


, S-31 

rol statement 
tion L-234 
, S-31 
nee input, 
6 

-307, U-253 
smi ssi on 1-156 
us word U-430 
unct i on, 

reset type 

tput address, PD 

U-264 

ne output file, 

C-75 
1 

Method CALL 
tion L-350 

L-351 

ss Method CALL 

tion L-352 

L-353 
tti ng 

tion L-236 

L-238 

function L-288 
ss Method CALL 
tion L-354 

L-355 



QCB tas 

cod 

ove 

que 

I- 

QD queu 

QE queu 
fun 
ove 
pro 

QUALIFY 
$DEBUG 

QUESTIO 
cod 
ove 

queuabl 

queue c 

queue 

queue 

queue 

queue 
L-37 

queue p 
QUEUEI 

QUEUEIO 
module 



k control statement S-33 

ing description L-240 

rview L-42 

ue control block 1-45, 

54 

e descriptor 1-64, L-37 

e entry 

ctions 1-64 

rview L-37 

cessing S-32 

modify base address, 

command U-101 
N terminal I/O instruction 
ing description L-242 
rview L-44, S-47 
e resource S-33 
ontrol block (see QCB) 
escriptor (see QD) 
ntry (see QE) 
rocessing 1-64 
rocessing instructions 

rocessing support module, 
0, description 1-81 

queue processing support 

description 1-81 
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RA reassign address, $TERMUT1 com- 
mand U-336 
random access S-53 
random work file operation, 

$S1ASM 1-260 
RCB (see Remote Management 

Utility, control block) 
RDCUR50R terminal I/O instruction 
coding description 1-244 
overview L-44, S-47 
RE 

copy from basic exchange data 

set, $C0PY command U-59 
rename, $TERMUT1 command 

U-337 
rename member, $DISKUT1 com- 
mand U-135, U-136 
rename member, $DIUTIL 

command U-161 
reset parameters, $IAMUT1 

command U-243 
restore 4974 to standard 
character set, STERMUT2 
U-339 
read 

analog input, AI $I0TEST 

U-268 
character image table from 

4978, GET $F0NT U-206 
data set into work file 
$EDIT1 U-177 
$EDIT1N U-176 
$FSEDIT U-216 
digital input, DI $I0TEST 

command U-266 
digital input using external 

sync U-266 
Host Communications Facility, 

TP operand C-95 
IDCB command L-175 
operations (BSC) 1-157 
program, RP command 
$UPDATE U-410 
$UPDATEH U-419 
READ instruction 

disk/diskette return codes 

L-249, U-455 
di sk/di skette/'tape I/O 
i nstruct i on 

coding description L-245 
overview L-22 
tape return codes L-249, 
U-456 
READDATA read data from host, 

$HCFUT1 command C-108 
READID IDCB command L-175 
READOBJ read object module, 

$HCFUT1 command C-109 
READTEXT terminal I/O instruction 
coding description L-251 
overview L-44, S-48 
return codes L-255 
return codes, virtual terminal 
communications L-256 
ready a task supervisor execution 

state 1-43 
READ1 IDCB command L-175 
READSO read 80 byte records, 

$HCFUT1 command C-109 
real image ACCA terminals C-7 



realtime data member 
$PDS S-251 

RT $DIC0MP subcommand U-124 
RECEIVE function 

overview C-243 
sample program C-262 
RECONNECT Multiple Terminal 

Manager utility C-120, C-159 
record 

blocking, Remote Management 

Utility C-211 
definition S-53 
exchange, Remote Management 

Utility C-208 
format for object module, 

$LINK U-407 
header, Remote Management 

Utility C-209 
sizes, Host Communications 
Facility C-83 
reformat di skettes U-68 
register, index L-6 
register, software L-6 
register conventions 
$S1ASM 1-257 
BSCAM processing 1-147 
common emulator setup routine 

1-68 
EBCDIC to floating-point 

conversion 1-205 
summary chart $S1ASM 1-258 
terminal I/O support 1-106 
REL release a status record, 

$HCFUT1 command C-110 
relational statements L-180 
RELEASE 

Host Communications Facility, 

TP operand C-96 
Indexed Access Method CALL 
S-147 

coding description L-356 
overview L-27, S-147 
return codes L-357 
release a status record, REL 

$HCFUT1 command C-110 
release space ($PDS) S-261 
relocating program loader 1-19 
relocation dictionary, $EDXASM 

1-250 
REMARK operator comment, $J0BUTIL 

command U-288 
remote job entry to host, 

$RJE2780/$RJE3780 C-73 
Remote Management Utility 
CDRRM equates C-292 
control block (RCB) 

description 1-164, 1-169 
equate tables C-292, 

1-295 
use in problem determi- 
nation 1-190 
defaults C-283 
error handling C-277 
function table 1-164, 1-167 
functions C-206, 1-166 
installation C-281 
interface C-207 
internals 1-216 
logic flow 1-170 
messages C-279 
modifying defaults C-283 
module descriptions 1-191 
module 1 i st 1-186 
operation C-213 
overlay function processor 
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table 1-167, 1-220 
overlay table 1-167, 1-220 
overview C-205 
program preparation 1-184 
requirements C-207 
sample host programs C-259 
system generation 

considerations C-281 
TERMINAL statement example 

S-107 
terminating C-251 
remote system (see Remote 

Management Utility) C-205 
remove breakpoints and trace 

ranges, OFF $DEBUG command U-97 
rename member 

RE SDISKUT1 command U-135, 

U-136 
RE $DIUTIL command U-161 
RENUM renumber lines 

$EDIT1/N subcommand U-196 
$FSEDIT primary command U-224 
reorganize an indexed data set 
U-242 

procedure S-166 
report data member ($PDS) S-251 
reposition line pointer (see move 

line pointer) 
Request record C-209 
reserved labels L-4 

function, $RJE2780/$RJE3780 

attention request C-76 
IDCB command L-176 
Indexed Access Method 

ECHO mode, EC $IAMUT1 com- 
mand U-240 
SE command parameters, RE 
$IAMUT1 command U-243 
line command, $FSEDIT primary 
command U-225 
RESET task control instruction 
coding description L-258 
overview L-42, S-31 
resident assembler routines 1-256 
resolution, enhanced 1-201 
resolution, standard graphics 

1-201 
resource control, supervisor 1-54 
restart, automatic S-129 
restore 

disk or disk volume from tape, 

RT $TAPEUT1 command U-326 
dump volume utility, $M0VEV0L 

U-294 
4974 to standard character 
set, RE $TERMUT2 command 
U-343 
resulting field (EOR) L-122 
return codes (see also completion 
codes) 

$DISKUT3 S-319, U-444 

$PDS U-445 

BSC C-57, U-446 

CONVTB L-80 

CONVTD L-83 

data formatting instructions 

U-447 
DELETE L-330 
DISCONN L-333 
ENDSEQ L-335 
EXIO U-448 

EXIO instruction L-131 
EXIO interrupt L-132 
EXTRACT L-337 



FADD L-136 

FDIVD L-138 

FILEIO C-145 

floating point instruction 

U-450 
FMULT L-145 

formatted screen image U-450 
FSUB L-160 
FTAB C-138, L-373 
GET L-340 
GETSEQ L-343 
in Remote Management Utility 

control block 1-190 
Indexed Access Method U-451 
LOAD L-199, U-452 
LOAD (Indexed Access Method) 

L-346 
Multiple Terminal Manager 

U-453 
PRINTEXT L-219 
PROCESS L-349 
PUT L-351 
PUTDE L-353 
PUTEDIT L-238 
PUTUP L-355 
READ disk/diskette L-249, 

U-455 
READ tape L-250, U-456 
READTEXT L-255 
RELEASE L-357 
SBIO U-457 

SBIO instruction L-262 
SETPAN C-135 
tape L-77 
TERMCTRL L-288 
terminal I/O L-255, U-458 
ACCA U-459 
interprocessor 
communications C-31, 
U-460 
virtual terminal L-256, 
U-461 
TP (Host Communications Facil- 
ity) C-102, U-463 
WHERES L-316 
WRITE disk/diskette L-320, 

U-455 
WRITE tape L-320, U-456 
return from immediate action 

routine (SUPEXIT) 1-49 
return from task level (SUPRTURN) 

1-49 
RETURN program control 
i nstructi on 

coding description L-259 
overview L-32, S-31 
supervisor entry point 1-279, 

1-313 
supervisor interface 1-62 
REM (rewind tape) L-75 
rewind tape, MT $TAPEUT1 command 

U-324 
RH reassign hardcopy, $TERMUT1 

command U-338 
RI read 
t ran spa r en t/n on- transparent, 
$BSCUT2 command C-68 
RJE (see Remote Job Entry) 
RLOADER 1-19, 1-22 

RLOADER/RLOADRU module 
description 1-78 
RO reorganize indexed file, 

$IAMUT1 command U-242 
ROFF (rewind offline) L-75 
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roll screen, terminal I/O L-48, 

S-293 
RP read program 

$UPDATE command U-410 
$UPDATEH command U-419 
RPQ D02038, 4978 display station 
attachment C-6, S-97 
different device 
configurations C-8 
RSTATUS IDCB command L-175 
RT 

activate realtime data member, 

$DIC0MP subcommand U-124 
change realtime data member 

name ($PDS) 5-258 
disk or disk volume from tape, 
$TAPEUT1 utility U-326 
RWI read/write non-transparent, 

$BSCUT2 command C-58 
RWIV read/write non-transparent 

conversational, $BSCUT2 C-71 
RWIVX read/write transparent 

conversational, $BSCUT2 C-70 
RWIX read/write transparent, 

$BSCUT2 command C-67 
RWIXMP read/write multidrop 
transparent, $BSCUT2 command 
C-60 



U2 



SA save data, $DIC0MP subcommand 

U-124 
SAVE 

data set on disk, $IMAGE com- 
mand U-254 
work data set, $EDIT1/N 
subcommand U-197 
save current task status 

CTASKSAVE) 1-54 
save data, SA $DIC0MP subcommand 

U-124 
save disk or disk volume on tape, 

$TAPEUT1 utility U-330 
save storage and registers, STRAP 

utility U-348 
SB special PI bit, $I0TEST 

command U-267 
SBAI sensor based I/O support 

module description 1-80 
SBAO sensor based I/O support 

module description 1-80 
SBCOM sensor based I/O support 

module description 1-80 
SBDIDO sensor based I/O support 

module description 1-80 
SBIO sensor based I/O instruction 
coding description L-260 
control block (SBIOCB) 1-127 
overview L-39, S-51 
return codes L-262 
SBIOCB sensor based I/O control 

block 1-127 
SBPI sensor based I/O support 

module description 1-80 
SC save control store, $TERMUT2 

command U-343 
screen format builder utility, 

$IMAGE S-68, U-250 
SCREEN graphics instruction 
coding description L-270 
overview L-^26 



screen image format building 

U-250 
screen images, retrieving and dis- 
playing S-300 
screen management, terminal I/O 

L-48 
SCRNS volume, Multiple Terminal 

Manager C-120, C-173 
SCRNSREP, Multiple Terminal 

Manager C-125 
scrolling, $FSEDIT U-210 
SCSS IDCB command L-176 
SE set parameters, $IAMUT1 

command U-244 
SE set status, $HCFUT1 command 

C-110 
second-level index block 
description S-197 
overview S-153 
secondary 

disk volumes S-132 
volumes S-60 
secondary option menus S-218, 
U-36 

(see session manager) 
sectioning of program modules 

L-33 
sector S-52 

self-defining terms L-4 
send 

data, HX $DIC0MP subcommand 

U-118 
data set, SEND function C-247 
message to another terminal, 
$TERMUT3 utility U-344 
SEND function 

internals 1-166, 1-172 
overview C-247 
sample program C-274 
sensor based I/O 

assignment L-188 

I/O control block (SBIOCB) 

1-127 
modules (IOLOADER/IOLOADRU) 

1-78 
statement overview L-39 
support module descriptions 

1-81 
symbolic L-9 
SENSORIO configuration statement 

S-51, S-84 
sequence chaining L-27 
sequencing instructions, program 

L-34 
sequential access 

in Indexed Access Method 

S-145 
overview S-53 
sequential work file operations 

($S1ASM) 1-259 
serially reusable resource (SRR) 

1-59, S-33 
session, PASSTHRU 

conducting C-227 
establishing C-225 
logic flow diagram C-230 
using $DEBUG utility C-272 
session manager U-27 

$SMALL0C data set allocation 

control data set S-222, U-30 
$SMDELET data set deletion 

control data set S-222, U-32 
adding an option S-209, S-224 
communications utilities U-42 
communications utilities 
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S-217 
data management S-215 
diagnostic utilities 

S-217 
disk utilities (see data 

management) 
execute program utilities 

S-216 
graphics utilities S-216 
job stream processor 

utilities S-216 
logon menu U-27 
primary S-218* U-35 
program preparation 

utilities S-214 
secondary S-218* U-36 
summary of S-213 
terminal utilities S-215 
updating primary option 
S-224 
creating a new menu S-224 
data management U-38 
data set deletion U-32 
data sets creation U-29 
diagnostic utilities U-43 
execute program utilities 

U-41 
graphics utilities U-40 
invoking U-27 
invoking a $J0BUTIL procedure 

S-229 
job stream processor 

utilities U-42 
menus U-33 
minimum partition size 

required U-27 
operational overview S-209 
primary option menu* $SMMPRIM 

S-218, U-35 
procedures 

communications utilities 

S-217 
data management utilities 

S-215 
diagnostic utilities 

S-217 
execute program utilities 

S-216 
graphics utilities S-216 
job stream processor 

utilities S-216 
overview S-220 
program preparation 

utilities S-214 
terminal utilities S-215 
updating S-225 
program function keys U-28 
program preparation utilities 

U-36 
secondary option menus S-218* 

U-36 
storage usage S-211 
terminal utilities U-40 
text editing utilities U-36 
utilities not supported U-46 
SET, ATTN TERHCTRL function L-288 
set breakpoints and trace ranges* 

AT $DEBUG command U-90 
set date and time* $T operator 

command S-63* U-19 
SET Host Communications Facility 

TP operand C-97 
SET*LPI TERMCTRL function L-288 
set status* SE $HCFUT1 command 
C-110 



set tape offline, MT $TAPEUT1 com- 
mand U-324 
set time* $T operator command 

U-19 
SETBUSY supervisor busy routine 

1-48, 1-63 
SETCUR, Multiple Terminal Manager 
CALL 

coding description C-137, 

L-378 
internals M-9 
overview C-117, L-29 
SETEOD subroutine S-324 
SETPAN, Multiple Terminal Manager 
CALL 

coding description C-134, 

L-379 
internals M-9 
overview C-117* L-29 
return codes L-380 
setup procedure for $J0BUTIL 

U-271 
SG special PI group, $I0TEST com- 
mand U-267 
SHIFTL data manipulation 
i nstructi on 

coding description L-271 
overview L-19 
SHIFTR data manipulation 
i nstructi on 

coding description L-273 
overview L-19 
SHUTDOWN function C-251* 1-166* 

1-181 
SI save image store* $TERMUT2 com- 
mand U-341 
SIGNON/SIGNOFF, Multiple Terminal 
Manager C-156 

SIGNONFL C-174 
single program execution 1-35 
single-task program 1-33 
single task program S-34 
SIXB (see second-level index 

block) 
SLE sublist element* $EDXASM 
format of 1-217 
in instruction parsing 

($EDXASM) 1-220 
instruction description and 

format 1-229 
used in $IDEF 1-241 
software register L-6 
software trace table S^-265 
sort/merge S-9 

source program compiling S-71 
source program entry and editing 

S-66, U-351 
source program line continuation 

using $EDXASM L-4, U-361 
source statements* $EDXASM overlay 

generated 1-243 
SP spool function* 
$RJE2780/$RJE3780 reset type 
C-76 
SPACE listing control statement 
coding description L-275 
overview L-28 
special control characters S-46 
special PI 

bit* SB $I0TEST command U-267 
group* SG $I0TEST command 
U-267 
specifications* data conversion 
L-146 
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SPECPI define special process 

interrupt L-189 
SPECPIRT instruction 

coding description L-Z76 
overview L-39 
split screen configuration S-293 
SPOOL define spool file* 
$RJE2780/$RJE3780 C-76 
SQ set prompt made, $C0PYUT1 

command U-64 
SQRT data manipulation 
i nstructi on 

coding description L-277 
overview L-19 
SS set program storage parameter, 

$DISKUT2 command U-149 
ST 

display data set status, 

$DIUTIL command U-162 
save disk or disk volume on 
tape, $TAPEUT1 command U-330 
standard labels, tape 
E0F1 S-240 
E0V1 S-239 
fields S-238 
HDR1 S-239 
header label S-235 
layouts S-236 
processing S-236 
trailer label S-235 
volume label S-235 
V0L1 S-238 
START 

IDCB command L-176 
PROGRAM statement operand 
L-225 
start and termination procedure, 

$DEBUG U-85 
STARTPGM 1-16 
statement label L-4 
static screen, terminal I/O 
accessing example S-297 
overview L-48 
status, set, SE SHCFUT1 command 

C-110 
STATUS data definition statement 
coding description L-278 
overview L-17 
status data set, system Host 

Communi cati ons Faci 1 i ty C-85 
Status record C-258 
STIMER timing instruction 

coding description L-280 
overview L-50, S-32 
with PASSTHRU function C-238 
storage estimating 

application program size 

S-344 
supervisor size S-333 
utility program size S-342 
storage management 

address relocation translator 

1-71, S-42 
allocating 1-25 
description S-42 
design feature S-13 
storage map, resident loader 1-26 
storage map ($S1ASM) phase to 

phase 1-262 
storage resident loader, RLOADER 

1-19 
storage usage during program load 

1-20 
store next record ($PDS) S-261 
store record C$PDS) S-261 



strings, relational statement 

L-180 
SU 

submit (X) function, 
$RJE2780/$RJE3780 reset type 
C-77 
submit job to host, $HCFUT1 
command C-lll 
SUBMIT 

Host Communications Facility, 

TP operand C-98 
send data stream to host, 

$RJE2780/$RJE3780 C-77 
submit job to host, $EDIT1 

command U-179 
submit job to host, $FSEDIT 
option U-217 
SUBMITX send transparent, 

$RJE2780/$RJE3780 C-77 
SUBROUT program control statement 
coding description L-281 
overview L-32, S-31 
subrout i nes 

$IMDATA S-303 
$IMDEFN S-301 
$IM0PEN S-300 
$IMPR0T S-302 
ALTIAM concatenation S-167 
DSOPEN S-322 
overview S-31 
SETEOD S-324 
SUBTRACT data manipulation 
i nstructi on 

coding description L-283 
overview L-19 
precision table L-284 
suggested utility usage U~48 
supervi sor/emulator 

class interrupt vector table 

1-10, 1-277 
communications vector table 

1-11, 1-278, 1-313 
control block pointers 1-11 
design features S-13 
device vector table 1-11, 

1-278 
emulator command table 1-13, 

1-282, 1-301 
entry routines 1-47 
equate table 1-279, 1-313 
exit routines I~49 
features S-13 
fixed storage area I~9 
functions 1-44 

calling 1-60 
generation 1-5, S-115 
initialization control module, 

EDXINIT, description 1-81 
initialization task module, 

EDXSTART, description 1-81 
interface routines 1-61 
introduction 1-5 
module names and entry points 

S-309 
module summary 1-8 
overview S-29 

PASSTHRU session with C-225 
referencing storage locations 

in 1-12 
service routines 1-53 
size, estimating S-333 
task supervisor work area 

1-13, 1-280 
utility functions (see 
operator commands) 
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with the address translator 
support 1-72 
SUPEXIT supervisor exit routine 

1-49, 1-63 
support for optional features 

L-15 
SUPRTURN supervisor exit routine 

1-49 
surface analysis of tape, STAPEUTl 

utility U-319 
SVC supervisor entry routine 

1-47, 1-62 
SVCABEND supervisor exit routine 

1-49 
SVCBUF supervisor request buffer 

1-48 
SVCI supervisor entry routine 

1-48 
symbol dictionary, $EDXASM 1-250 
symbol table types, $EDXASM 1-216 
symbolic L-10 

address (disk, tape) L-10 
disk/tape I/O assignments 

L-10 
diskette L-10 

reference to terminals S-110 
sensor I/O addresses L-9 
terminal I/O L-10 
symbols (EXTRN) L-134 
symbols (WXTRN) L-323 
syntactical coding rules L-4 
syntax checking in instruction 

parsing ($EDXASM) 1-221 
syntax rules L-4 
SYSGEN (see system generation) 
system 

alternate logging device 

S-46, S-lll 
class interrupt vector table 

1-10, 1-277 
commands (see operator 

commands) 
common area 1-12 
communications vector table 

1-11, 1-278, 1-313 
control blocks, referencing 

1-289 
data tables, EDXSYS, module 

description 1-75 
device vector table 1-11, 

1-278 
emulator command table 1-13, 

1-282, 1-301 
generat i on 

procedure S-115 
host/remote C-205 
logging device S-46, S-110 
operational and error 

messages U-421 
printer S-46, S-110 
program check and error 

messages U-427 
task supervisor work area 
1-13, 1-280 
SYSTEM configuration statement 

L-39, S-86 
system configuration statements 

S-75 
system control blocks S-42 
system reserved labels L-4 



TA allocate tape data set, 

$TAPEUT1 command U-333 
tables, parameter equate L~ll 
tabs 

HTAB $IMAGE command U-252 
TABSET SEDIT1/N subcommand 

U-198 
VTAB $IMAGE command U-254 
TABSET establish tab values 

$EDIT1/N editor subcommand U-198 
tape 

bypass label processing S-244 
control L-74 
data set L-40 
defining volumes S-62 
definitions for data sets 

L-40 
end-of-tape (EOT) L-41 
I/O instructions L-40 
internals 1-97 
labels 

external S-233 
internal S-233 
load point (BOT) L-40 
non-label 

layout S-242 
processing S-243 
support S-241 
record L-40 

return codes L-77, U-455 
standard label 

fields S-238 
layout S-236 
processing S-236 
support S-235 
storage capacity S-59 
symbolic addressing L-10 
utility, STAPEUT1 S-233, 

U-311 
volume L-40 
TAPE configuration statement S-94 
tape data set control block 1-99 
tape device data block (see TDB) 
TAPEINIT, tape initialization mod- 
ule description 1-82 
tapemark L-74 
task 

active/ready level table 1-50 

concepts 1-29 

control 1-42 

control block (see TCB) 

definition and control func- 

t i ons 
dispatching 1-52 
error exit facility 

check and trap handling 

S-268 
linkage conventions S-269 
execution states 1-43, S-39 
internals 1-42 
multiple-task program 1-33, 

S-34 
overview L-42, S-29 
priority (see priority, task 

execut i on) 
single-task program 1-33, 

S-34 
states S-39 
status display, WHERE $DEBUG 

command U-102 
structure S-29 
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supervisor 1-42 

supervisor address translator 

support module 1-76 
supervisor functions 1-44 
supervisor work area 1-13* 

1-280 
switching 1-51/ 5-30 
synchronization and control 
1-54, S-30 
task code words L-8 
TASK task control statement 

coding description L-285 
overview L-42, S-31 
TASKSAVE supervisor service 

routine 1-54 
TCB task control block 1-32, 

1-43, 1-49, 1-56, 1-314 
TCBEQU L-13 
TD 

display line and data ($PDS) 

S-258 
display time and date, $DIC0MP 

subcommand U-124 
test display, $DIC0MP command 
U-108 
TDB, tape device data block 
description 1-97 
equate listing 1-316 
TEB terminal environment block 

C-128, M-13 
Tektronix C-6 

devices supported S-14, S-45 
support for digital I/O S-312 
teleprocessing (see TP) 
teletypewriter adapter C-7, C-21 
TERMCTRL terminal I/O instruction 
coding description L-2S8 
overview L-44 
return codes L-301 
TERMERR L-44 
termi nal 

#7850 teletypewriter adapter 

C-21 
ACCA support C-7, L-295 
ASCII C-7 
assignment list, LA $TERMUT1 

command U-336 
attention handling L-47 
attention keys L-47 
code types C-303 
configuration utility, 

$TERMUT1 U-334 
connected via digital I/O 

S-312 
control block (see CCB) 
data representation L-46 
definition and control 

functions S-47 
device configurations C-8 
EDXTIO/EDXTIOU module 

description 1-78 
environment block (see TEB) 
error handling L-44 
forms control L-46 
forms interpretation for 

display screens L-46 
f unct i ons 

data formatting C-16 
definition C-16 
interrupt processing C-17 
hardware jumpers C-18 
I/O L-46 

attention handling L-47 
data representation L-45 
error handling L-44 



forms control L-45 
prompting and advance 

input L-46 
screen management L-48 
I/O internal design 1-105 
I/O support layer 3 1-112 
input L-46 
keyboard and ATTNLIST tasks 

L-47 
message sending utility, 

$TERMUT3 U-344 
new I/O terminal support 

1-117 
operations C-14 
operator signals L-49 
output L-46 

output line buffering L-46 
program function keys L-47 
prompting and advance input 

L-46 
return codes C-20, L-219, 

L-255, U-458 
roll screens L-48 
sample terminal support 

program C-26 
screen management L-48 
server, Multiple Terminal 

Manager C-119, M-7 
session manager (see session 

manager) 
special considerations for 

attachments of devices 

via #1610 or #2091 with 

#2092 adapters C-17 
via #2095 with #2096 
adapters C-21 
special control characters 

S-46 
static screens L-48 
supported devices and 

features C-6 
terminal I/O L-47 
terminology for supported 

terminals C-7 
transmission protocol C-31 
utilities (session manager) 

S-215, U-40 
virtual I/O 1-115 
TERMINAL configuration statement 
defaults S-105 
def i ni t i on S-96 
overview S-48 
TERMINAL volume, Multiple Terminal 

Manager C-120, C-171 
terminate 

logging, $L0G utility U-292 
Remote Management Utility 

C-251 
test 

BSC lines, $BSCUT2 utility 

C-64 
generated report or graphics 

profile member U-108 
label types, $TAPEUT1 utility 

U-319 
process interrupt for 

occurrence of event, SIOTEST 

U-267 
TEXT data definition statement 
coding description L-305 
overview L-17 
text editing utilities 

edit dataset subroutine exam- 
ples 1-326 
full screen-editor $FSEDIT 
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U-209 
line editors, SEDIT1/N U-169 
overview S-66 
work data set, format of 
1-321 
text wrapping, WRAP function 

C-254 
time/date 

display, $W operator command 

U-25 
set, $T operator command U-19 
set, automatic initialization 
facility S-130 
time of day 

GETTIME instruction L-167 
TIMEDATE Host Communications 
Facility, TP operand C-100 
TIMER configuration statement 

S-33, S-112 
timer control L-50 
timer module descriptions 

CEDXTIMER, EDXTIMR2) 1-80 
timing instructions L-50, S-32 
TITLE listing control statement 
coding description L-308 
overview L-28 
TONE TERMCTRL function L-288 
TOP repostiton line pointer, 

$EDIT1/N editor subcommand U-200 
TP host communication instruction 
descri pti on 

coding description C-90 
internals 1-153 
subcommand operations 1-157 
TPCOM host communications support 

module description 1-81 
trace printing routine for BSC, 

$BSCUT1 C-62, S-65 
trace ranges and breakpoints 

setting, AT $DEBUG command U-90 
trace routine for BSC, $BSCTRCE 

C-61 
trace table, software S-265 
transaction program, Multiple 
Terminal Manager 
functions L-28 
Multiple Terminal Manager 
C-121 
transfer data set to host 
SEND function C-247 
WR $HCFUT1 command C-112 
WRITE $EDIT1 command U-180 
WRITE $FSEDIT option U-216 
transfer rates for data, Host 

Communications Facility C-84 
transient program loader 1-19 
transmission codes S-98 
transmission protocol, host 

communications 1-156 
transmitted data, length of, host 

communications 1-159 
TRAPDUMP force trap dump, STRAP 

attention command U-349 
TRAPEND end STRAP use, STRAP 

attention command U-349 
TRAPOFF deactivate error trap, 

$TRAP attention command U-349 
TRAPON activate error trap, STRAP 
attention command U-349 



UN unload indexed file, SIAMUT1 

command U-246 
UNBLINK TERMCTRL function 
undefined length records, 

S-245 
UNLOCK TERMCTRL function 
unprotected field S-307, 
UP move line pointer, SEDI 

editor subcommand U-201 
update ut i 1 i ty 

$UPDATE convert object 

to disk U-408 
$UPDATEH convert host 
program to disk U-41 
updating a menu for the se 

manager S-224 
user defined data member ($PDS) 

S-252 
user exit routine L-310 
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tape 

L-288 
U-253 

:ti/n 



program 

object 

8 

ssi on 



requires Macro Assembler S-71 
user initialization modules 1-17 
USER program control instruction 

coding description L-310 


overview L-32 
utilities U-47 

BSC communications 


C-61 


invoking U-2 
listed by type S-64 
overview S-5 


, U-3 


utilities not supported 

manager menu U-46 
utility program size S- 
utility usage U-48 
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V verify, $INITDSK command U-260 
VA 

display, variable, SDICOMP 

subcommand U-125 
display variable (SPDS) S-254 
variable length record, Ho l st 

Communications Facility C-84 
variable length records, tape 

S-244 
variable names L-4 
vary disk, diskette, or tape 

offline, SVARYOFF U-20 
vary disk, diskette, or tape 

online, $VARY0N U-22 
vector 

addition L-19, L-54 
data manipulation L-19 
vector addition (ADDV) 

coding description L-54 
overview L-19 
veri fy 

disk or diskette data set, V 

$INITDSK U-260 
tape executing correctly, EX 

$TAPEUT1 command U-319 
tape surface free of defects, 
EX STAPEUT1 command U-319 
verify and initialize disk or 

diskette library, $INITDSK U-256 
verify identification 
host system C-223 
remote system C-223 
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VERIFY verify changes, $EDIT1/N 

editor subcommand U-202 
vertical tabs, defining U-254 
VI list volume information, 

$I0TEST command U-270 
virtual terminal communications 
accessing the virtual termi- 
nal S-281 
creating a virtual channel 

S-2S0 
establishing the connection 

S-280 
intei — program dialogue S-282 
internals 1-115 
loading from a virtual 

terminal S-281 
Remote Management Utility 
requirements C-281 
volume 

definitions (disk/diskette) 

L-22, 5-52 
dump restore utility, 

$M0VEV0L U-294 
labels S-60 
VTAB define vertical tab setting, 
$IMAGE command U-254 



CALL 



save 



tape 



write da 

command 

write op 

WRITE1 I 

WS put p 

$I0TEST 

WTM (wri 

WXTRN pr 

stateme 

codi 

over 



coding descript 

L-381 
internals M-9 
overview C-118 

work data set 
$EDIT1 command 
$EDIT1N command 
$FSEDIT primary 

U-216 

I/O instructio 
coding descript 
overview L-22 
return codes L 
ta set to host, 

C-112 
e rat ions, HCF 
DCB command L- 
rogram in wait 

command U-264 
te tape mark) 
ogram module se 
nt 

ng description 
view L-33 



ion C-133, 



L-29 



m 



V 



U-180 

U-181 
opti on 



ion L-317 

-320, U-456 
WR $HCFUT1 

1-156 

175 

state, 

L-75 

cti oni ng 

L-323 



XYZ 



WAIT program sequenc 

coding descripti 

overvi ew L-42, 

supervisor funct 

1-58 

wait state, put prog 

$I0TEST command U- 

waiting, task execut 

1-43 
WE copy to basic exc 
data set, $C0PY com 
WHERE display status 
$DEBUG command U-l 
WHERES task control 
coding descripti 
overview L~42, 
return codes L- 
WI write non-transpa 

command C-69 
WIX write transparen 

command C-69 
word boundary requir 
DO L-34 
IF L-34 
PROGRAM L-225 
work data set 

$EDXASM 1-249 
$LINK U-400 
$51ASM 1-258 
work f i les, $S1ASM, 

1-258 
WR write a data set 

$HCFUT1 command C- 
WRAP function C-254 
WRITE 

disk/diskette 1/ 

coding descr 

overview L- 

return codes 

Host Communicati 

TP operand C-l 

IDCB command L- 

Multiple Termina 



ing statement 

on L-313 

S-31 

ion 1-45, 

ram in, WS 

264 

ion state 

hange di skette 
mand U-63 

of all tasks, 
02 

f unct i on 
on L-315 
S-287 
316 
rent, SBSCUT2 

t, SBSCUT2 

ement 



how used 

to host, 

112 

, 1-166, 1-176 

instruction 
iption L-317 
22 

L-320, U-455 
ons Faci 1 i ty, 
01 
175 

1 Manager 



X-type format L-154 

XI external sync DI, $I0TEST 

command U-266 
XO external sync DO, SI0TE5T 

command U-266 
XYPLOT graphics instruction 
coding description L-324 
overview L-26 
YTPLOT graphics instruction 
coding descrition L-325 
overvi ew L-26 
ZCOR, sensor I/O L-189 
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C-7 
2092 asynchronous communications 
four line adapter C-6 

considerations for attachment 

of devices C-17 
different device 

configurations C-8 
to attach ACCA terminal S-99 
use with different terminals 

C-7 

2095 feature programmable eight 
line controller C-6 

considerations for attachment 

of devices C-21 
different device 

configurations C-8 
use with different terminals 

C-7 

2096 feature programmable four 
line adapter C-6 

considerations for attachment 

of devices C-21 
different device 

configurations C-8 
use with different terminals 

C-7 
2741 Communications Terminal 
supported S-45 
TERMINAL statement example 

S-106 
3101 Display Terminal 

attribute character C-122 
block mode considerations 

C-25 
character mode considerations 

C-22 
interface with Multiple 

Terminal Manager C-121, L-29 
TERMINAL configuration 

statement examples S-108 
3585 4979 display station 
attachment C-6, S-97 

4952 Processor 
partitions on S-42 
timer feature installed on 

S-32 

4953 Processor 
partitions on S-42 
timer feature installed on 

S-32 
4955 Processor 

partitions on S-42 
timer feature installed on 
S-32 

4962 Disk Storage Unit 
storage capacity $-58 
supported by Indexed Access 

Method S-146 

4963 Disk Subsystem 
storage capacity S-58 
supported by Indexed Access 

Method S-146 

4964 Diskette Storage Unit 

part of minimum system config- 
uration S-22 

required for program 
preparation S-22 

supported by Indexed Access 
Method S-146 
4966 Diskette Magazine Unit 

part of minimum system config- 
uration S-22 

required for program 
preparation S-22 



supported by Indexed Access 
Method S-146 
4969 Magnetic Tape Subsystem 
S-233 

4973 Line Printer 

defined in TERMINAL configura- 
tion statement S-96 
end of forms S-307 
TERMINAL statement example 
S-105 

4974 Matrix Printer 

defined in TERMINAL configura- 
tion statement S-96 

end of forms S-307 

restore to standard character 
set, RE $TERMUT2 U-339 

TERMINAL statement example 
S-105 

4978 Display Station 

defined in TERMINAL configura- 
tion statement S-96 

part of minimum system 
configuration S-22 

reading modified data S-307 

required for program 
preparation S~22 

TERMINAL statement example 
S-105 

4979 Display Station 

defined in TERMINAL configura- 
tion statement S-96 
part of minimum system 

configuration S-22 
required for program 

preparation S-23 
TERMINAL statement example 
S-105 
4982 sensor I/O unit S-84 
5230 Data Collection Interactive 

S-ll 
5620 4974 matrix printer 
attachment C-6 

defined in TERMINAL statement 

S-97 
different device 
configurations C-8 
5630 4973 line printer attachment 
C-6 

defined in TERMINAL statement 
S-97 
5719-AM3 (see Indexed Access 

Method) 
5719-ASA (see Macro Assembler) 
5719-CB3 (see COBOL) 
5719-CB4 (see COBOL) 
5719-F02 (see FORTRAN IV) 
5719-LM3 (see 
Mathematical/Functional Subrou- 
tine Library) 
5719-LM5 (see Macro Library) 
5719-MS1 (see Multiple Terminal 

Manager) 
5719-SM2 (see Sort/Merge) 
5719-UT3 (see Utilities) 
5719-UT4 (see Utilities) 
5719-XS1 (see Basic Supervisor and 

Emulator) 
5719-XX2 (see Program Preparation 

Faci li ty) 
5740-LM2 (see Macro Library/Host) 
5799-TDE (see Data Collection 

Interacti ve) 
7850 teletypewriter adapter C-6, 
C-21 
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